Prblem bei erstellen einer txt datei

[jonsen2.0.0.9]

Hallo,

hab jetzt ma versucht, ein Programm zu schreiben bei dem man Notizen in eine Checklistbox machen kann.

Das funktioniert auch alles aber ich möchte, das wenn man das Programm beedet und dann wieder startet das man die Notizen wieder hat.

Außerdem soll das Programm die beim schließen automatisch in eine .txt datei schreiben.

das sieht bis jetzt so aus:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var i:integer;
   sl:TStringList;
begin
 sl := TStringList.Create;
 try
  for i := 0 to CheckListBox1.Items.Count - 1 do
   begin
    if (CheckListBox1.Checked[i] = true) then
     sl.Add(CheckListBox1.Items[i]);
   end;
 finally
  sl.SaveToFile(sDir + '\Notes.txt');  \\sDir ist der Pfard in dem das Programm ist!  (sDir:=GetCurrentDir;)
  sl.Free;
 end;
end;

er erzeugt zwar eine Text datei aber schreibt nichts in sie.


und wie man die dann wieder ausliest weiss ich leider auch nich...hoffe ihr habt nen paar tipps für mich!