Mehrere Memo's Speicher

[SaFu]

Sorry aber irgendwie habe ich immernoch den gleichen Fehler

Delphi-Quellcode:

procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b: String;
begin
 a:=Memo1.Text;
 b:=Memo1.Text;

  FileStream := TMemoryStream.Create;

  FileStream.Write(Length(a), // und zwar hier SizeOf(Integer));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(Length(b), // und hier SizeOf(Integer));
  FileStream.Write(b, Length(Memo1.Text));

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

[Fehler] Unit7.pas(426): Variable erforderlich