Inhalt eines TEdit in Textdatei speichern

[Froms]

Guten Morgen allerseits,
ich bin sehr beeindruckt. In sehr kurzer Zeit bekam ich mehrere Antworten. Vielen Dank.

Ich habe das ganze jetzt folgendermaßen gelöst. Wenn das nicht ganz so elegant ist, dann bitte ich um Nachsicht und wenn ihr wollt, könnt ihr mich gern korrigieren.

Wie richtig vermutet, erstelle ich die Stringlist im FormCreate Ereignis.

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Stringlist:=Tstringlist.Create;
end;

Die Daten übernehme ich im Ereignis, wo die Daten ausgelesen werden.

Code:

if checkbox1.Checked then
  Stringlist.Add(Temp_f);
  edit4.text:=Temp_f;

Im OnChange Ereignis sichere ich die Daten.

Code:

procedure TForm1.Edit4Change(Sender: TObject);
begin
  if Checkbox1.Checked then
  x:= GetCurrentDir;
  x:=x+'\MSAVE.txt';
  Stringlist.SaveToFile(x);
end;

Im Close Ereignis gebe ich die Stringlist wieder frei.

Code:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Stringlist.free;
end;

Vielen Dank nochmal für die rasche Hilfe.