textdatei aus edtifeld auslesen udn wieder einlesen

[tspanni]

Hallo
ihc habe mal ne frage und zwar möchte ich eine datei mit Assignfile erstellen wo dann mit nem button der text aus verschiedenen editfeldern in jeweils eine zeile geschrieben wird (also edit1 in zeile1, edit2 in zeile2...) und danach wieder in das jeweilige editfeld geladen wird

Delphi-Quellcode:

var x:textfile;

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(x,'C:stupla.stp');
  rewrite(x);
  writeln(x,Edit1.Text);
  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    assignfile(x,'stupla.stp');
    reset(x);
    Readln(x,);

end;

so siehts bisher aus. die datei wird zwar erstellt aber es steht nichts drin... kann mir bitte jemand sagen wie ich den obigen code anpassen muss (sowohl writln als auch readln)

Vielen Dank im Voraus
Tim