Encontrar un Item en un ListBox

[esocrates]

Un saludo a todos,
Necesito ayuda con este código:
Tengo en un Form un ListBox, un Botton y un Edit.
Quiero recorrer el ListBox y si se encuentra determinado Item que se escriba un mensaje en el Edit.
Supongamos que el Item es 'Pepe' y se encuentra en el ListBox
Intento esto y no pasa nada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to Listbox1.Items.Count - 1 do
    if Listbox1.ItemIndex <> -1 then
      begin
  if ListBox1.Items.Text='Pepe' then

      begin
        Edit1.Text:= 'Encontrado';
      end;
    end;
end;
end;

Desde ya muchas gracias