Beim Suchen gefundene Elemente aus Memo löschen

[Stamper]

Ich hab jetzt diese Routine entworfen:

Delphi-Quellcode:

  For lcount := highcount downto 0 do
  begin
    listbox3.Items.Add(inttostr(lcount));
    For lcount2 := 0 to highcount2 do
    begin
      delfile := ExtractFileName(ListBox1.Items[lcount2]);
      if (delfile = memo1.Lines[lcount]) then
      begin
        memo1.Lines.Delete(lcount);
      end;
    end;
  end;

Allerdings muss ich die Prüfung 2 mal durchführen, denn sonst erkennt er den Wert "lcount" innerhalb der 2. Schleife nur für den Wert "0". Aber naja ich werd das jetzt so anwenden.

Vielen Dank für eure Hilfe!