Не записывается объект в файл

type 
      ClassA = class
      private
               field1:integer;
               field2:integer;
      public
              procedure fun1(i:integer);
              constructor Create(s1,s2:string);
      end;
      ClassB = class
      private
               field1:integer;
               field2:integer;
      public
              procedure fun1(i:integer);
              constructor Create;overload;
      end;
 
сама реализация
constructor ClassA.Create(s1,s2:string);
begin
field1:=s1;
field2:=s2;
end;
...................
constructor ClassB.Create;
var
    ClassA1:ClassA;
begin
ClassA1:=ClassA.Create('fdsfs','fdsfsf');
FileWrite(hFile,ClassA1,sizeof(ClassA));//hFile это глобальный ранее полученный
end;

type 
      ClassA = class
      private
               field1:integer;
               field2:integer;
...
constructor ClassA.Create(s1,s2:string);
begin
field1:=s1;
field2:=s2;
end;

FileWrite(hFile,ClassA1,sizeof(ClassA));

I:=SizeOf(Pointer)-SizeOf(ClassA);

type
 
    TSubstation=record
       SerialNo:Integer; //Порядковый номер
       Number:Integer;   //Номер
       Location:TPoint;  //Координаты Подстанции
       Base:boolean;     //Признак дислокации ОВБ
       Checked:boolean;  //Признак выбора
       Name:String[255]; //Название
    end;
 
    TSubstationMas = array of TSubstation; //Массив подстанций
 
    TKymas = array of array of Double; //Массив коэффициентов удлинения трассы
//----
procedure ReadDataFromFile(FileName:String; var S:TSubstationMas; var Ky:TKyMas);
var FS:TFileStream;
    i,j,n:Integer;
begin
   SetLength(S,0);
   FS:=TFileStream.Create(FileName, fmOpenRead);
   FS.Read(n,SizeOf(Integer));
   for i:=0 to n-1 do
   begin
      SetLength(S,Length(S)+1);
      FS.Read(S[Length(S)-1], SizeOf(TSubstation));
   end;
 
   //массив Ку
   FS.Read(n,SizeOf(Integer));
   SetLength(Ky,n,n);
   for i:=0 to n-1 do
   begin
      for j:=0 to n-1 do
      begin
         FS.Read(Ky[i,j], SizeOf(Double));
      end;
   end;
   FreeAndNil(FS);
end;
 
procedure WriteDataToFile(FileName:String; S:TSubstationMas; Ky:TKyMas);
var FS:TFileStream;
    i,j,n:integer;
begin
   n:=Length(S);
   FS:=TFileStream.Create(FileName, fmCreate);
   FS.Write(n, SizeOf(Integer));
   for i:=0 to Length(S)-1 do
   begin
      FS.Write(S[i], SizeOf(TSubstation));
   end;
 
   //Ky
   n:=Length(Ky);
   FS.Write(n, SizeOf(Integer));
   for i:=0 to Length(Ky)-1 do
   begin
      for j:=0 to Length(Ky)-1 do
      begin
         FS.Write(Ky[i,j], SizeOf(Double));
      end;
   end;
 
   FreeAndNil(FS);
end;

s:='fsdfsdfsd';
FileWrite(hFile,s,lenght(s));