[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;

// Saludos