PageCount (ImageList Control) example for Delphi 4
Write OnScroll event handler as follows:
procedure TForm1.LEADImgList1Scroll(Sender: TObject);
begin
ShowMessage('Page: ' + IntToStr(LEADImgList1.CurrentPage) + ' of ' +
IntToStr(LEADImgList1.PageCount));
end;