HScrollInfo example for Delphi

var
   msg: string;
begin
   if (LEADImage1.HScrollInfo.Visible) then
   begin
      LEADImage1. HScrollInfo.Page := Trunc (LEADImage1.HScrollInfo.Max / 10 ) ;
      LEADImage1.HScrollInfo.Line := 10;
   end;
   if (LEADImage1.VScrollInfo.Visible) then
   begin
     LEADImage1.VScrollInfo.Page := Trunc ( LEADImage1.VScrollInfo.Max / 10 ) ;
     LEADImage1.VScrollInfo.Line := 10;
   end;
   msg:= 'HScrollMin: ' + IntToStr (LEADImage1.HScrollInfo.Min) + Chr(13);
   msg:= msg + 'HScrollMax: ' + IntToStr(LEADImage1.HScrollInfo.Max) + Chr(13);
   msg:= msg + 'VScrollMin: ' + IntToStr(LEADImage1.VScrollInfo.Min) + Chr(13);
   msg:= msg + 'VScrollMax: ' + IntToStr(LEADImage1.VScrollInfo.Max) + Chr(13);
   msg:= msg + '-------------'+ Chr(13);
   msg:= msg + 'HScrollPage: ' + IntToStr(LEADImage1.HScrollInfo.Page)+ Chr(13);
   msg:= msg + 'HScrollLine: ' + IntToStr(LEADImage1.HScrollInfo.Line)+ Chr(13);
   msg:= msg + 'VScrollPage: ' + IntToStr(LEADImage1.VScrollInfo.Page)+ Chr(13);
   msg:= msg + 'VScrollLine: ' + IntToStr(LEADImage1.VScrollInfo.Line)+ Chr(13);
   msg:= msg + '-------------'+ Chr(13);
   msg:= msg + 'HScrollPos: ' + IntToStr(LEADImage1.HScrollInfo.Pos) + Chr(13);
   msg:= msg + 'VScrollPos: ' + IntToStr(LEADImage1.VScrollInfo.Pos) + Chr(13);
   msg:= msg + '-------------'+ Chr(13);
   msg:= msg + 'HScrollWidth: ' + IntToStr(LEADImage1.HScrollInfo.Width)+ Chr(13);
   msg:= msg + 'VScrollWidth: ' + IntToStr(LEADImage1.VScrollInfo.Width)+ Chr(13);

   ShowMessage ( msg ) ;

end;