что то с кодировкой

function TForm1.WriteFile: boolean;
var
  buf:PChar;
begin
  if WaitForSingleObject(MyMutex,5)=WAIT_OBJECT_0 then
    result:=true
  else
  begin
    result:=false;
    exit;
  end;
  try
    with TFileStream.Create('file.txt',fmCreate or fmShareDenyWrite) do
      try
        buf:=Memo1.Lines.GetText;
        Write(buf,Length(buf));
      finally
        Free;
      end;
    if CheckBox1.Checked then Sleep(10);
  finally
    ReleaseMutex(MyMutex);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.txt';
var
  F : File;
  S : String;
begin
  S := Memo1.Text;
  AssignFile(F, Fn);
  Rewrite(F, SizeOf(Char));
  BlockWrite(F, Pointer(S)^, Length(S));
  CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.txt';
var
  Fs : TFileStream;
  S : String;
begin
  S := Memo1.Text;
  Fs := TFileStream.Create(Fn, fmCreate or fmShareDenyWrite);
  Fs.Write(Pointer(S)^, Length(S) * SizeOf(Char));
  Fs.Free;
end;

var
  //Это лишь указатель на буфер. А сам буфер обозначается так: Pointer(SBuf)^
  SBuf : String;
  //Это тоже указатель на буфер. Сам буфер обозначается так: PchBuf^
  PchBuf : PChar;
begin
  ...