Hallo,
dein Code löscht die durch Edit2 bestimmten Zeilen nur dann, wenn sie am Anfang von onList stehen, weil du deinen index nicht anpasst.
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
lLine: Integer;
Begin
lLine := 0;
// onlist.BeginUpdate;
While ( lLine < onlist.Count ) Do
If SameText(onlist[lLine], Edit2.Text)
Then onlist.delete(lLine)
Else Inc(lLine);
// onlist.EndUpdate;
end;
Getippt und nicht getestet.
Grüße vom marabu