Array mit verschiedenen Records

[Scrutor]

Ich hänge nun an folgendem Problem fest:

Delphi-Quellcode:

type
  TDataArray = array[0..4] of variant;

var
  DataArray : TDataArray; // ???

...

  Format:=0;
  CreateDate:=StrToDate(FormatDateTime('dd.mm.yy',GetFileModifyDate(Fread)));
  if CreateDate<StrTodate('22.01.04') then Format:=1;
  if CreateDate<StrTodate('23.07.03') then Format:=2;
  if CreateDate<StrTodate('21.02.02') then Format:=3;
  if CreateDate<StrTodate('27.04.01') then Format:=4;
  if CreateDate<StrTodate('31.10.00') then Format:=5;
  case Format of
    0: begin
         DataArray[0]:=TZeile_1_nach04;  
         DataArray[1]:=TZeile_2_nach03; 
         ...
         DataArray[4]:=TZeile_5_nach04; 
       end;
    1: begin
         DataArray[0]:=TZeile_1_vor04;
         DataArray[1]:=TZeile_2_nach03;
       end;
    2: begin
        DataArray[0]:=TZeile_1_vor04;
        DataArray[1]:=TZeile_2_vor03;     
       end
    else
     begin
       ShowMessage('Format wird noch nicht unterstützt.');
       exit;
     end;
  end;

  fStream:=TMemoryStream.Create;
  try
    fStream.LoadFromFile(Fread);
    fStream.ReadBuffer(DataArray[0],SizeOf(DataArray[0]));
    fStream.ReadBuffer(DataArray[1],SizeOf(DataArray[1]));
    fStream.ReadBuffer(DataArray[2],SizeOf(DataArray[2]));
    fStream.ReadBuffer(DataArray[3],SizeOf(DataArray[3]));
    fStream.ReadBuffer(DataArray[4],SizeOf(DataArray[4]));
  finally
    fStream.Free;
  end;

ich weiss nicht, wie ich anders den Datensatz in das array bekomme, um den richtigen datensatz auslesen zu können