Wie kann ich Schreibweise im Filestream optimieren ?

[Gandimann]

Hello Friends,
ich schreibe in meinem Custom File ein Paar Strings via Filestream. Aber es kommt immer eine Leerzeichen nach jedem Char.

Es sollte LAMP schreiben aber es schreibt L A M P

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
  var
  fs: TFileStream;
begin

fs := TFileStream.Create('C:\Test1.depp',
                 fmCreate or fmOpenWrite or fmShareDenyWrite);
try
  fs.Position := 23 ;
  fs.WriteBuffer((Char($4c))+(Char($41))+(Char($4d))+(Char($50)),8);

  finally
  fs.Free;;
  end;
end;

Wie kann ich LAMP (ohne Leerzeichen) schreiben ?

Thanks in advance