var
  ts: string;
begin
 ts := RegExprReplaceMatchSubStr(GetURLBase, 't\.itoworld\.com', 't'+inttostr( Random(4) )+'.itoworld.com' );
 ResultURL := ts + inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY);
end.