ResizeRgn example for Delphi

   LEADImage1.RgnFrameType := ftAnimated;
   LEADImage1.SetRgnRect (40, 60, 280, 200, L_RGN_SET);
   ShowMessage ('About to resize') ;
   LEADImage1.ResizeRgn (20, RGN_CONTRACT, False);