String in Txt Datei speichern

[dedeur]

Hmm ich hab folgendes jetzt gemacht:

Code:

procedure TForm1.Button4Click(Sender: TObject);
var Datei : TextFile;

begin
    Assign(Datei, 'c:\Test2.txt');
    Append(Datei);
    if IOResult <> 0 then Reset(Datei);
    Writeln (Datei, Memo1.Text);
    CloseFile(Datei);
end;

bekomme aber immernoch den Fehler

[Fehler] Unit1.pas(60): Inkompatible Typen: 'TPersistent' und 'Text'

kann ich irgendwie nichts mit anfangen