no se guardan los datos en el archivo binario

[starfix]

hola gente!, quiero guardar los datos que tengo de una lista enlazada a un archivo binario y no se me guardan en el archivo, no me da error tampoco de que no lo hizo:

esta es la implementacion que utilizo para guardar:

Código C++:

bool Lista_Producto::Guardar_Lista(){
 
if (FILE *Archi= fopen("datos.dat", "wb")){
 
Producto *Aux= this->Primero;
 
while (Aux != NULL){
 
PR->Nombre= Aux->Nombre;
PR->Precio= Aux->Precio;
PR->Tipo= Aux->Tipo;
PR->SubTipo= Aux->SubTipo;
 
fwrite(PR, sizeof(PR), 1, Archi);
 
Aux= Aux->Siguiente;
}
 
fclose(Archi);
 
return 1;
}else return 0;
 
};
 

PR corresponde al siguiente struct:

Código C++:

struct Producto_Auxiliar{UnicodeString Nombre;
                         float Precio;
                         UnicodeString Tipo, SubTipo;
                         Producto_Auxiliar(){}} *PR;
 

estoy usando c++ builder, si necesitan algun dato mas avisenme

Saludos. voy a seguir intentando pero me tengo que ir a trabajar en un rato