var xx, yy:integer;

begin

if (GetZ=12) then
begin
  xx:=166;
  yy:=193;
end;

if (GetZ=13) then
begin
  xx:=166*2;
  yy:=193*2;
end;

if (GetZ=14) then
begin
  xx:=166*2*2;
  yy:=193*2*2;
end;

if (GetZ=15) then
begin
  xx:=2993;
  yy:=3480;
end;

if (GetZ=16) then
begin
  xx:=2993*2;
  yy:=3480*2;
end;

if (GetZ=17) then
begin
  xx:=2993*2*2;
  yy:=3480*2*2;
end;

if (GetZ=18) then
begin
  xx:=23839;
  yy:=28351;
end;


 ResultURL:=GetUrlBase+'L'+inttostr(GetZ-8)+'/R'+IntToHex((GetY+yy),8)+'/C'+IntToHex((GetX+xx),8)+'.jpg';
end.