EasyMap VCL
TEasyMap.MapToScreen
procedure MapToScreen(mX: Extended; mY: Extended; var sX: Integer; var sY: Integer; Truncate: Boolean = True);
Description
Converts map coordinates to screen coordinates with the account of current zoom ratio and map central point.

procedure TForm1.DysplayHintWindowAtPoint(Map: TEasyMap; X, Y: Extended);
var
 sX, sY: Integer; //screen coordinates
begin
 Map.MapToScreen(X, Y, sX, sY);
 with THintWindow.Create(Self) do 
 begin 
  Left := sX;
  Top := sY;
  Text := 'sample';
  Show;
 end;
end;