Почему не рисует квадрат на карте

Var
center     : TDOUBLEPOINT;
vPlaceOut  : TPPLACE;
MapTopLeft1 : TDOUBLEPOINT;
QFrame1     : array[1..5] of TDOUBLEPOINT;
QData1      : TPLACEDATA;
PointCount1 : Integer;
begin
vPlaceOut := form_main.mvMap.ViewSelect.PlaceOut;
center.X := bd_Zones.QSanitCleaningCoordXMsk.AsFloat;
ShowMessage ('center.X  = '+FloatToStr(center.X)); // Здесь координата нормальная в метрах 482215,618306
center.Y := bd_Zones.QSanitCleaningCoordYMsk.AsFloat;
ShowMessage ('center.Y  = '+FloatToStr(center.Y));  // Здесь координата нормальная в метрах 2226838,735923
form_main.mvMap.SetCenter(center, vPlaceOut);

MapTopLeft1.X:=form_main.mvMap.MapLeft;
MapTopLeft1.Y:=form_main.mvMap.MapTop;

form_main.mvMap.ConvertMetric(MapTopLeft1.X, MapTopLeft1.Y, PP_PICTURE, PP_PLANE);

QFrame1[1].X := center.X+3;
QFrame1[1].Y := center.Y-3;
QFrame1[2].X := center.X+3;
QFrame1[2].Y := center.Y+3;
QFrame1[3].X := center.X-3;
QFrame1[3].Y := center.Y+3;
QFrame1[4].X := center.X-3;
QFrame1[4].Y := center.Y-3;
QFrame1[5].X := center.X+3;
QFrame1[5].Y := center.Y-3;
PointCount1 := 5;
QData1.Points      := @QFrame1[1];
QData1.PolyCounts  := @PointCount1;  // адрес количества точек
QData1.Count       := 1; // счетчик контуров

mapViewUserObject(form_main.mvMap.MapHandle,form_main.mvMap.Handle,MapTopLeft1,Form,QData1,integer(PP_MAP));

Ожидаем нарисованный квадрат вокруг точки на карте.
В результате, нарисованный квадрат вокруг точки на карте не наблюдаем.