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+'1'; end else begin osY:=osY+prY; res:=res+'3'; end; end else begin osX:=osX+prX; if Gety<osy then begin osY:=osY-prY; res:=res+'2'; end else begin osY:=osY+prY; res:=res+'4'; end; end; end; res := Copy(res, 4, 99); ResultURL:=GetURLBase + inttostr(GetZ-1)+ '/' + res + '.jpg'; RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 + 'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 + 'Accept-Language: en-us,en;q=0.5' + #13#10 + 'Accept-Encoding: gzip, deflate' + #13#10 + 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 + 'DNT: 1' + #13#10 + 'Proxy-Connection: keep-alive' + #13#10 + 'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10; end.