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:=round(intpower(2,GetZ-3));
   prY:=round(abs(GetY-osX+1));
 ResultURL :=GetURLBase +  '&x='+inttostr(GetX-osY)+'&y='+inttostr(prY)+'&z='+inttostr(GetZ)+'&s=1&styles=sl&v=020&s=1';
end.
