[Corwin13]

Пробую прикрутить поиск к своему listview через процедуру:

Код:

procedure TForm1.Edit2Change(Sender: TObject);

var i:integer;
    s:ShortString;
begin

  for i:=0 to Listview1.Items.count-1 do begin
    s:=Ansiuppercase(system.Copy(form1.ListView1.Items[i].Caption,0,length(edit2.Text)));
    if Ansiuppercase(Edit2.text)=s then begin
       Listview1.Items[i].Selected:=true;
       Listview1.ItemFocused:=Listview1.items[i];
       Listview1.ItemIndex:=i;
       break;
    end;
  end;
  if Listview1.ItemFocused<>nil then
     Listview1.ItemFocused.MakeVisible(true);
end;

,
однако не работает. В чем может быть загвоздка?