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;