Spara dynamisk array

Hur gör jag för att spara denna array till en fil?

type
TWeekDay = record
Date: TDate;
Text: String;
end;

type
TWeek = record
Monday: TWeekDay;
Tuesday: TWeekDay;
Wednesday: TWeekDay;
Thursday: TWeekDay;
Friday: TWeekDay;
end;

type
TPerson = record
Name: String;
Today: String;
Week_1: TWeek;
Week_2: TWeek;
end;

var
Form1: TForm1;
Person: array of TPerson;

Nu ser jag inte vad det där kan vara för språk, men det påminner om pascal :)

Sök efter en binarywrite funktion/metod i referensen (om du har någon förstås).

Ahh,. det tänkte jag inte på att skriva.
Det är Delphi

Jag använder nu TFileStream men stötte på lite problem till. När jag använder Write funktionen så verkar det som att det inte är datan som sparas utan det blir adressen där datan ligger som sparas

Hängde ni med?
/Niclas *Som sagt så är det Delphi detta