.txt in checklistbox anzeigen & angehakte zeilen löschen

[violinplayer]

JETZT GEHT ES !

procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
I := 0; //inistialisieren
while CheckListBox1.Items.Count > I do //Damit .Count immer wieder aktualisiert wird
if CheckListBox1.Checked[I] then
CheckListBox1.Items.Delete(I) else Inc(I); //weil der Index "nachruchtscht"





CheckListBox1.Items.SaveToFile(myPcharcalljob);
switchcontent();

end;

DANKE !