Przeszukiwanie ListBox

How to search every item in ListBox and delete only these one which have some words in the end of list...?

abcdefghijklmnoprst
abcdefghijklmnoprs\del
abcdefghijklmnop
abcdefghijklmno\del
abcdefghijklm
abcdefghijk\del

CleanItems(ListBox.Items, '\del') gives:

abcdefghijklmnoprst
abcdefghijklmnop
abcdefghijklm

-= No co, ludzie borykają się z różnymi problemami... :) =-

procedure CleanItems(List: TListBox; Txt: String);
var
  Idx: Integer;
begin

 for Idx := List.Count -1 downto 0 do
    if UpperCase(Copy(List.Items.Strings[Idx], Length(List.Items.Strings[Idx]) -
       Length(Txt) +1, Length(List.Items.Strings[Idx]))) = UpperCase(Txt) then
              List.Items.Delete(Idx);

end;

danx