function addzero(i:integer):string;
var rs:string;
begin
rs:=inttohex(i, 8);
while length(rs)<8 do rs:='0'+rs;
result:=rs;
end;
var
zz:string;
begin
 zz:=inttostr(getz-4);
 while Length(zz)<2 do zz:='0'+zz;
 ResultURL:=GetUrlBase+zz+'/R'+addzero(GetY)+'/C'+addzero(GetX)+'.png';
end.