[lmikle]

Типа так:

Код:

For I := 0 To ListView1.Items.Count-1 Do
  If AnsicompareText(ListView1.Items[i].Caption,Edit1.Text) = 0 Then
    Begin
      ListView1.Selected := ListView1.Items[i];
      Break;
    End;