C++ zu Delphi funktion umschreiben

[XXcD]

Hallo,
ich habe eine C++ Funktion zum auslesen eines Titels in einer Datei.
Diese müsste ich in Delphi übernehmen, nur komme ich dabei nicht wirklich weiter.
Da ich leider keine Ahnung von C++ habe, bringt mich das zum verzweifeln.

Hier ist mal der Code:

Code:

int parse_cuv(char * file, char *title_name)
{
   FILE *fp;
   
   fp = fopen(file, "rb");
   if (fp != NULL)
      {
      unsigned len, pos, str;
      unsigned char *mem=NULL;

      
      fseek(fp, 0, SEEK_END);
      len=ftell(fp);

      mem= (unsigned char *) malloc(len+16);
      if(!mem) {fclose(fp);return -2;}

      memset(mem, 0, len+16);

      fseek(fp, 0, SEEK_SET);
      fread((void *) mem,len, 1, fp);

      fclose(fp); 

      str= (mem[8]+(mem[9]<<8));
      pos=(mem[0xc]+(mem[0xd]<<8));

      int indx=0;

      while(str<len)
         {
         if(mem[str]==0) break;
         
         if(!strcmp((char *) &mem[str], "TITLE"))
            {
            strncpy(title_name, (char *) &mem[pos], 63);
            free(mem);
            return 0;
            }
         while(mem[str]) str++;str++;
         pos+=(mem[0x1c+indx]+(mem[0x1d+indx]<<8));
         indx+=16;
         }
      if(mem) free(mem);
      }

   
   return -1;

}

Ich hoffe mir kann dabei jemand helfen.