SetSrcClipRect example for C++ Builder

void__fastcall TForm1::SetSrcClipRect1Click(TObject *Sender)
{
   int NewLeft, NewTop, NewWidth, NewHeight;
   NewLeft = LEADImage1->SrcClipLeft + LEADImage1->SrcClipWidth * 0.1;
   NewTop = LEADImage1->SrcClipTop + LEADImage1->SrcClipHeight * 0.1;
   NewWidth = LEADImage1->SrcClipWidth * 0.8;
   NewHeight = LEADImage1->SrcClipHeight * 0.8;
   if ((NewWidth > 1) && (NewHeight >1))
      LEADImage1->SetSrcClipRect(NewLeft, NewTop, NewWidth, NewHeight);
   LEADImage1->BackErase = true;
   LEADImage1->ForceRepaint();
}