Cargar una clase desde un fichero

[DarkByte]

Estimados compañeros foreros,

Estoy tratando de cargar un clase que se encuentra en un fichero. La aplicación dispone de una instancia global de la clase TEstante ya creada.

Código Delphi [-]
procedure TForm1.btCargarClick(Sender: TObject);
var
    FEstante : file of TEstante;
begin
    AssignFile (FEstante, 'patatita.bin');
    Reset (FEstante);
    Read (FEstante, Estante);
    CloseFile (FEstante);
    ShowMessage ('Archivo cargado con éxito');
end;

El resultado de la ejecución de este código es que Estante sigue conteniendo el mismo contenido que antes, por lo que la línea

Código Delphi [-]
    Read (FEstante, Estante);

no sustituye el contenido actual de Estante con el que se encuentra en el fichero.

Un saludo.