[esocrates]

Muchas gracias ContraVeneno;
Lo resolví de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to Listbox1.Items.Count - 1 do

      begin

       if  ListBox1.Items[i] ='Pepe' then

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

Un saludo