Mehrere MEMO-Felder speichern. Wo ist hier der Fehler?

[Erutan]

Hallo, bei dem Versuch, mehrere Memofelder nach der Methode in einem älteren Delphibuch in eine Datei zu speichern, komme ich nicht weiter.

Delphi-Quellcode:

procedure TForm1.Button16Click(Sender: TObject);
var
Datei: TextFile;
text_datei: TextFile;
text_zeilen: string;
zeilen_num: Integer;
begin
if SaveDialogAlles.Execute then
  

  AssignFile(Datei, SaveDialogAlles.FileName);
  Rewrite(Datei);
  WriteLn(Datei, EditName.Text);
  WriteLn(Datei,EditEmail.Text);
  WriteLn(Datei,EditTelefon.Text);
  WriteLn(Datei,EditAgentur.Text);
  WriteLn(Datei,EditFirma.Text);
  WriteLn(Datei,EditWebseite.Text);
  WriteLn(Datei,EditUsername.Text);
  WriteLn(Datei,EditPassword.Text);
  //WriteLn(Datei,MemoKontaktdaten.Lines);
  //WriteLn(Datei,MemoPortrait.Lines);
  //--------------Test----------------------
   for zeilen_num := 0 to MemoKontaktdaten.Lines.Count -1 do
   begin
   //liest geänderte Zeilen in Variable
   text_zeilen := IntToStr(zeilen_num) + MemoKontaktdaten.Lines(zeilen_num);

   //schreibt in Datei Zeile für Zeile
   WriteLn(datei,text_zeilen);
   end; //for end


  //------------Test Ende---------------------


  CloseFile(Datei);
end;

Der Complier stoppt bei

 MemoKontaktdaten.Lines(zeilen_num); mit dem Curser zwischen ( und zeilen_num und sagt Missing Operator oder Semicolon.

Das ist eigentlich schon der x-te Versuch, Memofelder zusammen mit Editfeldern in eine Datei zu speichern. Die beiden auskommentieren Zeilen darüber wären mir mit Abstand am liebst. Geht aber nicht.
Hat jemand eine Idee wie ich ähnlich einfach den Inhalt, zusammen mit den anderen Inhalten, abspeichern kann?

Viele Grüße
Erutan