Mehrere Memo's Speicher

[SaFu]

Habs jetzt so aber die *.txt ist jetzt unleserlich

Delphi-Quellcode:

procedure TForm7.Button7Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b :String;
    c,d :integer;
begin
 a:=Memo1.Text;
 b:=Memo2.Text;
 c:=Length(a) ;
 d:=Length(b) ;

  FileStream := TMemoryStream.Create;

  FileStream.Write(c, SizeOf(Integer));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(d, SizeOf(Integer));
  FileStream.Write(b, Length(Memo2.Text));

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;