[Sotrono]

Empezado por roman

¿Y no sería más sencillo usar IndexOf?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Pepe') <> -1 then
  begin
    Edt1.Text := 'Encontrado';
  end;
end;

No conocía esa función, igual no creo que compile la linea Edt1.Text := 'Encontrado';