Преобразовать координаты из исходных единиц в единицы измерения карты
procedure ConvertCoordToMap(var x,y: double; aUnits: TMapUnits);
x
y
aUnits