[Annihilator]

Общий смысл такой, только вместо showmessage - выделение нужной строки.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('1');
  ListBox1.Items.Add('2');
    ListBox1.Items.Add('3');
      ListBox1.Items.Add('4');
        ListBox1.Items.Add('5');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListBox1.Items.Count - 1 do
  if ListBox1.Items[i] = Edit1.Text then
    ShowMessage(ListBox1.Items[i]);
end;