Scrollen in Listview

[bluescreen25]

Hallo, wir haben vorgesehen zum scrollen in der ListView Buttons zu nutzen.
Das Problem besteht darin, das beim letzten Item noch ein Scroll möglich ist und somit die Scrollweite
um ein paar Pixel verschoben ist.
Wie bekomme ich das letzte Item beim Scollen abgefangen?

Delphi-Quellcode:

///noch zu verbessern, der Scroll darf nicht über das letzte Item hinaus !
 if TImgBtn(Sender).HelpKeyword = 'listview_down' then
  begin
    ListMedia.Scroll(0,IL.Height + 1); //Scrollweite IconHöhe
    Exit;                              //   +1 Pixel (3D-Abschrägung)
  end;

 if TImgBtn(Sender).HelpKeyword = 'listview_up' then
  begin
    ListMedia.Scroll(0,-(IL.Height + 1));
    Exit;
 end;

PS: Die eigendlichen Scollbalken haben für über einen TIPP verstecken können.

Viele Grüße, bluescreen25