BitmapToClient example for Delphi

var
   szOut: String;
begin
   //Test a bitmap location for its screen location
   LEADImage1.BitmapToClient (50, 50);
   szOut:= '';
   szOut:= szOut + 'ClientX = ' + IntToStr(LEADImage1.ConvertX) + Chr(13);
   szOut:= szOut + 'ClientY = ' + IntToStr(LEADImage1.ConvertY) + Chr(13);
   ShowMessage ( szOut ) ;
end;