Как найти нужную строку в ListBox?

[DelphiKettle]

Можно ли в ListBox найти строку с заданным значением и затем имитировать щелчок на ней? Если можно, подскажите, пожалуйста.

[Alex21]

ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));

[Alter]

Можно ещё так:

 
Procedure SelList(Lb :TListBox{Обрабатываемый объект};
                 S :String{искомая фраза});
 Var Sel :Integer;
begin  // Регистр букв неимеет значения
  Sel:=-1;
 IF LB.Items.Count>0 Then
 begin
    Sel := LB.Items.IndexOf( S );
  IF Sel>=0 Then
   LB.ItemIndex := Sel;
 end;
end;

Пример использования:

    SelList(ListBox1, 'искомое ВыРажениЕ');