GetRgnBounds example for Delphi

Procedure TForm1.Test();
Var
   RgnRect : TRect;
Begin
if Lead1.HasRgn then
   Begin
      Lead1.GetRgnBounds(RgnRect);
      Edit1.Text := Format('Region Bounds : (Top, Left), (Buttom, Right): ( %d %d ),
         (%d,%d)', [RgnRect.Top,RgnRect.left, RgnRect.Bottom, RgnRect.Right]);
   end
end;