RgnHeight example for Delphi

Procedure TForm1.Test();
Begin
   if Lead1.HasRgn then
   Begin
      Edit1.Text:= Format('Region Bounds : (Top, Left), (Width, Height) : ( %d %d ), (%d,%d)', [Lead1.RgnTop, Lead1.Rgnleft, Lead1.RgnWidth, Lead1.RgnHeight]);
   end
end;