[Keygenmusic]

а так:

Код:

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];
ListView1.Scroll(0, i);
end;