Типизированный файл с разной структурой

Page1 = ^TFile1;
  TFile1 = record
    id: integer;
    Name: array[0..63] of Char;
    TagValue1: integer;
    TagValue2: integer;
    TagValue3: real;
    TagValue4: integer;
  end;

Page2 = ^TFile2;
  TFile2 = record
    id: integer;
    Name: array[0..63] of Char;
    TagValue1: real;
    TagValue2: integer;
  end;

:file of

:file;

var
  FS: TFileStream;
  I: Integer;
  X: Integer;
begin
  FS := TFileStream.Create('C:\data.bin', fmOpenRead);
  try
 
    FS.ReadBuffer(I, SizeOf(i));
    for X := 0 to I - 1 do
    begin
      FS.ReadBuffer(RecType1, SizeOf(RectType1));
      // ...
    end;
 
    FS.ReadBuffer(I, SizeOf(i));
    for X := 0 to I - 1 do
    begin
      FS.ReadBuffer(RecType2, SizeOf(RectType2));
      // ...
    end;
 
  finally
    FreeAndNil(FS);
  end;
end;

:file of byte;

var f:file;
d:integer;
l:integer;
begin
     assignfile(f,'1');
     reset(f);
     BlockRead(f, d, sizeof(d), l); // При успешном чтении l=sizeof(d)

Page1 = ^TFile1;
  TFile1 = record
    id: integer;
    Name: array[0..63] of Char;
    TagValue1: integer;
    TagValue2: integer;
    TagValue3: real;
    TagValue4: integer;
  end;

// Name: array[0..63] of UnicodeString;
// Name: array[0..63] of Char;
//Name: array[0..63] of wideChar;
//Name: string[64];
// name: widechar;
// Name: widestring;
// name:UnicodeString;

Name: array[0..31] of WideChar;