[Keygenmusic]

тогда по сложному

Код:

var rct:TRECT;
const LVM_GETITEMRECT=4110;  LVIR_BOUNDS=0;
...
for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.text, ListView1.Items[i].Caption)>0 then begin
ListView1.Selected:=ListView1.Items[i];
rct.Left:=0;
SendMessage(ListView1.Handle,LVM_GETITEMRECT,0,integer(@rct));
ListView1.Scroll(0,(i-ListView1.TopItem.Index)*(rct.Bottom-rct.Top));
ListView1.SetFocus;
end;