Prblem bei erstellen einer txt datei

[jonsen2.0.0.9]

also fangen wir mal an:

es gibt keine Fehlermeldung sondern der Taskmanager meint keine Rückmeldung und meine CPU ist bei 90-100%(beide) auslastung (duel core 3ghz pro kern)

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 i: integer;
 sl: TStringList;
begin
 sl := TStringList.Create;
 try
  for i := Pred(CheckListBox1.Items.Count) downto 0 do
   begin
     if CheckListBox1.Checked[i]=true then
      CheckListBox1.Items.Delete(i)
      else
      sl.Add(CheckListBox1.Items[i]);
   end;
    sl.SaveToFile(sDir + '\Notes.txt');
 finally
  sl.Free;
 end;
Form1.Close;
end;

muss dat sl.savefile da wos jetzt ist hin? in die schleife kanns ja eigentlich nich gehören...