Eine etwas andere Herangehensweise.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := Memo1.Lines.Count -1 downto 0 do
begin
if (Memo1.Lines[i] = Edit1.Text) then
Memo1.Lines.Delete(i);
end;
end;
Es werden alle Einträge gelöscht und man läuft nicht Gefahr über die Grenzen hinauszulaufen.