VAR
TL,BR:TPoint;
topLeftM,bottomrightM,topLeftA,bottomrightA:TDoublePoint;
begin
tl.x:=GetX;
tl.y:=GetY;
br.x:=GetX+4;
br.y:=GetY+4;
topLeftA:= Converter.Pos2LonLat(tl,GetZ-1);
bottomrightA:= Converter.Pos2LonLat(br,GetZ-1);
topLeftM:= Converter.LonLat2Metr(topLeftA);
bottomrightM:= Converter.LonLat2Metr(bottomrightA);
ResultURL:=GetURLBase+RoundEx(topLeftM.x,10)+','+RoundEx(bottomrightM.y,10)+','+RoundEx(bottomrightM.x,10)+','+RoundEx(topLeftM.y,10); 
end.