Buenas, ya se sitúa correctamente, Muchas gracias.
, por cierto he tenido que hacer lo siguiente ya que el listview tengo habilitado un SearchBox.
No se si es lo mas optimo per me funciona correctamente.
Código Delphi
[-]
for j := 0 to ListView1 .Controls.Count-1 do
if ListView1.Controls[j] is TSearchBox then
begin
HeihhtSearch:= ListView1.controls[j].Height;
Break;
end;
itemRect := ListView1.GetItemRect(ListView1.Items[i].Index);
ListView1.ScrollViewPos := ListView1.ScrollViewPos +( itemRect.Top-HeihhtSearch );