C++ na DELPHI help

Witam dostałem kod w C++ od i prosił bym zeby mi ktos przepisał to na delphi ...

int gg_http_hash(const char *format, ...)
{
unsigned int a, c, i, j;
va_list ap;
int b = -1;

va_start(ap, format);

for (j = 0; j < strlen(format); j++) {
      char *arg, buf[16];

      if (format[j] == 'u') {
            snprintf(buf, sizeof(buf), "%d", va_arg(ap, uin_t));
            arg = buf;
      } else {
            if (!(arg = va_arg(ap, char*)))
                  arg = "";
      }      

      i = 0;
      while ((c = (unsigned char) arg[i++]) != 0) {
            a = (c ^ b) + (c << 8);
            b = (a >> 24) | (a << 8);
      }
}

va_end(ap);

return (b < 0 ? -b : b);

}

.... z gory TYX i POZDRO !!