6 line
197 B

  1. var
  2. url: string;
  3. begin
  4. url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8084 + Random(8) ));
  5. ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
  6. end.