Spar Font problem

  type
  SparTyp = record
            FullScreen : TWindowState;
            Visa : byte;
            Root : string[255];
            Font : TFont;
            Color : TColor;
  end;

Följande kod används för att göra en record typ för att spara en massa olika saker, dock fungerar det ej att spara font på detta sätt (men allt annat). Varje gång man laddar inställningarna kommer ett felmeddelande.

Någon som vet ett bättre sätt att spara font inställningar?