[NPIdea]

Mira que he mirado páginas, foros, etc.

Al final estaba en la ayuda de Buider, jeje.

hay que cambiar el setmode, con lo que quedaría así:

añardir io.h y fontl.h ademas de string.h y stdio.h.

Código Delphi [-]
    AnsiString RD=ExtractFilePath(Application->ExeName)+"Archivo.ppp";
    FILE *pf=fopen(RD.c_str(),"r");
    setmode( fileno( pf ), O_BINARY );
    if (pf!=NULL)
    {
      fseek(pf, 0, 0);
      fread(&RegDoc, sizeof(RegDoc), 1, pf);
      fclose(pf);
    }

Y solucionado.