2 Memos in 1 Textdatei speichern

[Gast]

Habs vllt nicht so professionell jetzt gemacht aber es geht:

Code:

procedure TForm1.Panel3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('Diese Passwortliste wurde mit dem Passwort Creator von [url]www.Tigerhead.de[/url] erstellt.');
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
    Memo1.Lines.Delete(Memo1.Lines.Count-4);
    Memo1.Lines.Delete(Memo1.Lines.Count-3);
    Memo1.Lines.Delete(Memo1.Lines.Count-2);
    Memo1.Lines.Delete(Memo1.Lines.Count-1);
end;

Thx 4 help !!