HasRgn example for Delphi

If Lead1.HasRgn then
   Edit1.Text := 'Bitmap Has Region';