Szukanie itema w Listbox

Witam!
Męczę się z procedurką, która by wyszukiwała treść itema, którą podaję w Edit.
Chodzi mi o to, że jak wpiszę coś w Edit to potem ma wyszukać czy jest jakiś item w Listboxie z taką samą treścią i jak jest to ma zrobić jakąś operację. Znalazłem w FAQ taki post, ale nie wiem jak to przerobić na moje potrzeby :(
http://4programmers.net/Forum/93909?h=listbox%20szukanie#93909
Jeśli umie mi ktoś pomóc to dla niego wielkie dzięki :)

Przeszukać musisz każdy item w ListBoxie:

var
 i: integer;
begin
 for i:=0 to listBox.Items.Count-1 do
      if pos(edit1.Text, listBox.Items[i])>0 then break;

end;

W zmiennej i będziesz miał index szukanego itema.
Tylko powinieneś dorobić do tego jakąś zmienną logiczną, w razie, gdyby został przeszukany cały listBox, a dany item nie znaleziony.

a mnie się wydaje że jest coś takiego jak listbox1.items.indexOf('tekst')

Do Juhasa: Twój kodzik znajduje tylko ostatni item, czyli Dupa :(
Ala
Kot
Dupa

Do Adamo: Co to jest? Możesz mi objaśnić ten kod?

jak wpiszę coś w Edit to potem ma wyszukać czy jest jakiś item w Listboxie z taką samą treścią i jak jest to ma zrobić jakąś operację

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  x := ListBox1.Items.IndexOf(Edit1.Text);
  if x < 0 then
    ShowMessage('nie ma')
  else
    ShowMessage('jest, a jego index = ' + IntToStr(x));
end;

To są podstawy Delphi !
Poczytaj Helpa.