Automatyczne przewijanie w ListView?

Jak ustawic ListView by automatycznie przewijał i pokazywał ostatni wpis?
(tzn mam ustawiony ListView ze pokazuje np 4 wiersze i kolejny wpis juz sie nie miesci i trzeba przewinąc pasek ręcznie jak to zrobic by robił to automatycznie??

Var Item:TListItem;
begin
  Item:=ListView1.Items.Add;
  Item.Caption:='ddd';
  ListView1.Scroll(0,Item.Top);
end;