var url : string; begin url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) ); ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg'; end.