Record in Array

[hirsch]

Delphi-Quellcode:

type
  TKalender = class(TForm);
  TFrei = record
    Date: TDateTime;
    Name: string;
  end;
  TFreiTable = array of TFrei;
  function holeFreiTable(Year: Word): TFreiTable;
var
   Tage : array of array of String;
   erster, letzter : Integer;
.
.
.
function holeFreiTable(Year: Word): TFreiTable;
var
  EDate, Test: TDateTime;
  von,
  bis,
  I    : Integer;
begin
.
.
Test:=(TFreiTable(TFrei.Date))[1]; //<--E2096 Methodenbezeichner erwartet

//Später soll es dann mal anstelle der Test-Variablen so aussehen:
{  for I := erster to letzter do begin
    Tage[i,0]:=DateToStr(TFreiTable(TFrei(Date))[i]);
    Tage[i,1]:=TFreiTable[i].Name;
  end;}

Ich versuche aus dem Record alle Elemente auszulesen und in das Array Tage zu schreiben, da ich es benutzen möchte eine Tabelle mit Feiertagen zu bauen.

Nun ist meine Anfängerfrage: wie spreche ich jedes Feld des Record an, entlocke ihm sein Geheimnis und übergebe es als string meinem Array.

Ich hoffe jemand kann mir weiter helfen.
Vielen Dank