var
  sat: string;
begin 
  ResultURL := GetUrlBase + 
    '&z=' + IntToStr(GetZ-1) + 
    '&x=' + IntToStr(GetX) + 
    '&y=' + IntToStr(GetY) + 
    '&v=371' +
    '&vendorkey=38da783db1ef0c2d9f8e783a063ffcdc6a6330fe'
end.