Hvordan gemmes en font

Hvordan gemmer man en font på disken og ikke bare adr til den
pointer som peger på den ?

Program ser ud som følger


Type = GemmeRecord
                Variabel1 : Integer;
                Variabel2 : Integer;
                GemtFont : TFont;
            end;
     

var
    GemmeRec : GemmeRecord;
    GemmeFil : File of GemmeRecord;
    FontSomSkalGemmes : TFont;

begin
  FontSomSkalGemmes.Name := \'Ariel\';
  FontSomSkalGemmes.Size := 12;
  with GemmeRec do
  begin
    Variabel1 := 2;
    Variabel2 := 4;
    GemtFont := FontSomSkalGemmes; {Når jeg gør dette gemmes kun adr. på en pointer til fonten       
                                                                    Har prøvet med : GemtFont := @FontSomSkalGemmes;
                                                                      og det hjælper ej  hellere at sætte @ foran}
end;
AssignFile(GemmeFil, \'C:\\fil.fil\');
    {$i-}
    Rewrite(GemmeFil);
    if IOResult = 0 then
    begin
      Write(GemmeFil, GemmeRec);