Foros Club Delphi - ¡¡Ayuda!! Callejon sin salida

Perdornar si os parezco pesado pero no puedo continuar el programa que estoy haciendo sin solucionar el problema que tengo para guardar en un archivo los atributos miembros de una clase (formada pos clases anidades).Para aclarar mi problema pondre un codigo ejemplo:

//Incluyo Clases creadas por mi
#Include MisClases

//Creo una Clase
class TCLASE
{
private
Ansistring Variabe;
MisClases OtrasVariables; //Variables de otras clases
........
public
AsignarVariable(AnsiString Var); //Asigno valor a Varible
AnsiString LeerVariable(); //Recupero Variable (Metodo funciona)
.......................
GuardarClase(); //Metodo donde Creo el Archivo
LeerClase(); // Metodo leer archivo

} Clase;

TCLASEa:GuardarClase()
{

//Abro el Archivo para guardar
ofstream ArchClas(NombreArchivo,ios::out|ios::binary);

//Guardo los Equipos en el fichero de la Clase
ArchClas.write((char *) &Clase, sizeof(Clase));

//Cierro el Archivo
ArchClas.close();

}

TClase::LeerClase()
{
//Abro el Archivo para Leer
ofstream ArchClas(NombreArchivo,ios::in|ios::binary);

//Guardo los Equipos en el fichero de la Clase
ArchClas.read((char *) &Clase, sizeof(Clase));

//Cierro el Archivo
ArchClas.close();

}

Cuando Guardo el Archivo me crea el Archivo con la estructura de las variables miembro de la clase (arrays,Ansistring...) o al menos eso creo, pero no guarda los valores que tenia en el momento de almacenarlo.

Gracias