[ecfisa]

Hola NEG1414.

No estoy seguro de haber entendido el problema, pero hice una prueba simple con algunas modificaciónes (respetando la esencia que entendí del código) y luego de instanciada TClase2 visualizo sin cambios los valores asignados.

Y realmente en la porción de código de tu mensaje no veo de que modo la clase TClase2 pudiera estar induciendo cambios en la clase TDatos...

De todas formas te pongo la prueba por si pudiera servirte de ayuda:

...
#include <dir.h>

class TClase1 {
private:
  TStringList* Lista;
public:
  TClase1() { Lista = new TStringList; }
};

class TClase2 : public TClase1 {
private:
  TClase1 ClaseHija;
public:
  TClase2 () { struct ffblk ffblk; }
};

class TDatos {
private:
  struct SRegistro {
    char a, b, c;
    unsigned short Num;
  };
  typedef SRegistro TRegistro;

  struct SArchivo {
    char Nombre[16];
    TRegistro ListaRegistros[100];
  };
  typedef SArchivo TArchivo;

public:
  typedef SArchivo TArch;
  TDatos(){ }
  TDatos::SArchivo* TDatos::LeerDatos() {
    TArch A;
    // Asignar unos valores para visualizar
    strcpy(A.Nombre, "UN NOMBRE");
    A.ListaRegistros[0].a   = 'X';
    A.ListaRegistros[0].b   = 'Y';
    A.ListaRegistros[0].c   = 'Z';
    A.ListaRegistros[0].Num = 115;
    return &A;
  }
};

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TDatos* BDatos = new TDatos();
  TDatos::TArch LeLosDatos;

  LeLosDatos = *BDatos->LeerDatos();
  Memo1->Clear();
  Memo1->Lines->Add("Antes de instanciar Clase2\n");
  Memo1->Lines->Add(LeLosDatos.Nombre);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].a);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].b);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].c);
  Memo1->Lines->Add(IntToStr(LeLosDatos.ListaRegistros[0].Num));
  Memo1->Lines->Add("\n--------------------------");

  TClase2 *ClaseSegunda = new TClase2();

  Memo1->Lines->Add("Luego de instanciar Clase2\n");
  Memo1->Lines->Add(LeLosDatos.Nombre);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].a);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].b);
  Memo1->Lines->Add(LeLosDatos.ListaRegistros[0].c);
  Memo1->Lines->Add(IntToStr(LeLosDatos.ListaRegistros[0].Num));
}

Saludos