HScrollInfo example for C++ Builder

AnsiString msg;

   if (LEADImage1->HScrollInfo->Visible)
   {
      LEADImage1->HScrollInfo->Page = LEADImage1->HScrollInfo->Max / 10;
      LEADImage1->HScrollInfo->Line = 10;
   }
   if (LEADImage1->VScrollInfo->Visible)
   {
     LEADImage1->VScrollInfo->Page = LEADImage1->VScrollInfo->Max / 10;
     LEADImage1->VScrollInfo->Line = 10;
   }
   msg= "HScrollMin: " + IntToStr (LEADImage1->HScrollInfo->Min) + "\n";
   msg= msg + "HScrollMax: " + IntToStr(LEADImage1->HScrollInfo->Max) + "\n";
   msg= msg + "VScrollMin: " + IntToStr(LEADImage1->VScrollInfo->Min) + "\n";
   msg= msg + "VScrollMax: " + IntToStr(LEADImage1->VScrollInfo->Max) + "\n";
   msg= msg + "-------------\n";
   msg= msg + "HScrollPage: " + IntToStr(LEADImage1->HScrollInfo->Page)+ "\n";
   msg= msg + "HScrollLine: " + IntToStr(LEADImage1->HScrollInfo->Line)+ "\n";
   msg= msg + "VScrollPage: " + IntToStr(LEADImage1->VScrollInfo->Page)+ "\n";
   msg= msg + "VScrollLine: " + IntToStr(LEADImage1->VScrollInfo->Line)+ "\n";
   msg= msg + "-------------\n";
   msg= msg + "HScrollPos: " + IntToStr(LEADImage1->HScrollInfo->Pos) + "\n";
   msg= msg + "VScrollPos: " + IntToStr(LEADImage1->VScrollInfo->Pos) + "\n";
   msg= msg + "-------------\n";
   msg= msg + "HScrollWidth: " + IntToStr(LEADImage1->HScrollInfo->Width)+ "\n";
   msg= msg + "VScrollWidth: " + IntToStr(LEADImage1->VScrollInfo->Width)+ "\n";

   ShowMessage ( msg.c_str() ) ;