var res:string; i:byte; osX,osY,prX,prY:integer; begin res:=''; osX:=round(intpower(2,GetZ-1)) div 2; osY:=round(intpower(2,GetZ-1)) div 2; prX:=osX; prY:=osY; for i:=2 to GetZ do begin prX:=prX div 2; prY:=prY div 2; if GetX<osX then begin osX:=osX-prX; if GetY<osY then begin osY:=osY-prY; res:=res+'0'; end else begin osY:=osY+prY; res:=res+'2'; end; end else begin osX:=osX+prX; if Gety<osy then begin osY:=osY-prY; res:=res+'1'; end else begin osY:=osY+prY; res:=res+'3'; end; end; end; ResultURL:=GetURLBase+res+'.jpeg?g='+version+'&dir=dir_n'; end.