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)+'&styles=t%3Aland%7Ce%3Aall%7Cl%3A100%7Cs%3A-100%2Ct%3Awater%7Ce%3Aall%7Cc%3A%23ffe599ff%7Cl%3A47%2Ct%3Amanmade%7Ce%3Ag%7Cl%3A28%2Ct%3Aroad%7Ce%3Ag.f%7Cl%3A82%2Ct%3Aroad%7Ce%3Ag.s%7Cl%3A-76%2Ct%3Agreen%7Ce%3Aall%7Cl%3A63%7Cs%3A-100%2Ct%3Aboundary%7Ce%3Ag.f%7Cl%3A80%7Cs%3A1%2Ct%3Aboundary%7Ce%3Aall%7Cl%3A-75%7Cs%3A-100';

end.
