Assignfile- einfaches "Laden" und "Speichern"

[Spynx]

das steht jetzt im Quelltext

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var F: TextFile;
begin
AssignFile(F,'Save.txt');
Rewrite(F);
WriteLn(F, Edit1.Text);
CloseFile(F);
end;




procedure TForm1.FormActivate(Sender: TObject);
var F: TextFile;
begin
AssignFile(F,'Save.txt');
Reset(F);
ReadLn(F, Edit1.Text);
CloseFile(F);
end;


in der save.txt steht nun auch der text drin, wies soll, ellerding wird beim öffnen das edit feld nicht ausgefüllt.. ??

ps.: kennt evtl wer zu diesem Thema tutorials?

edit: aufmal kann er das prog nichtmehr compilen ?!? auchd as gespeicherte nicht.
es wird diese zeile markiert
ReadLn(F, Edit1.Text);
und gesagt, [Fehler] Unit1.pas(284): Der linken Seite kann nichts zugewiesen werden