Como gravar TFontStyles em um arquivo

procedure TForm1.btFonteClick(Sender: TObject);
var
  fonte: TFontStyle;
  p:^TFontStyle;
begin
  p := @fonte;  // atribui a p o endereço de fonte
  showmessage(Format(´¬d´, [integer(p)]));  //mostra em decimal o endereço p
  showmessage(Format(´¬d´, [Integer(p^)])); //mostra em inteiro o valor de p como tipo enumerado.
  {
    OBS.: como fsbold é o primeiro item do tipo enumerado fontstyle, integer(p^) quer dizer a mesma coisa que
    integer(valor do endereço de p) ou a mesma coisa que integer(fonte), que é 0 visto fsbold ser o primeiro
    estilo do tipo enumerado. Se fosse o segundo seria 1 (fsitalic)
  }

  ShowMessage( GetEnumName(TypeInfo(TFontStyle), Integer(fonte))); //mostra em formato string o estilo da fonte, com getenumname(typeinfo)
  ShowMessage(Format(´¬s´, [GetEnumName(TypeInfo(TFontStyle),Integer(p^))]));
  {
    mostra o valor em formato string da fonte contida no endereço p, com p^ da mesma forma que p é o endereço de fonte
    e P^ é o valor de fonte
  }

  {
    com relação a gravar estilos de fonte e outros tipos enumerados, eh soh gravar a string resultante das funções acima, fsbold... etc
    e fazer o processo inverso:
  }

  fonte := TFontStyle(GetEnumValue(TypeInfo(TFontStyle),´fsItalic´));
  lbFonte.Font.Style := lbFonte.Font.Style + [fonte];
  //ou  lbFonte.Font.Style :=  [fonte];    para ficar apenas italico

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  pb: PByte;
  fontes: TFontStyles;
begin
  fontes := fontes + [fsItalic, fsUnderline, fsStrikeOut];

  pb := @fontes;
  showmessage(Format(´¬d´, [Pb^])); //isso vale
  showmessage(Format(´¬d´, [byte(fontes)])); //isso vale e eh mais facil

  //showmessage(Format(´¬d´, [integer(fontes)])); //isso não vale

  lbFonte.Font.Style := TFontStyles(pb^);

  //poderia ser: lbFonte.Font.Style := TFontStyles(fontes);

  {
    OBS:
    se pb fosse  TFontStyles^tambem daria certo na atribuição de pb^,
    mas precisaria trocar o   showmessage(Format(´¬d´, [Pb^])) por
    showmessage(Format(´¬d´, byte([Pb^])));
    ou seja, o TFontStyles não aceita typecasting para integer e vice versa, mas
    para byte ele aceita. Isto se deve ao tamanho dessas estruturas, que são compativeis.
  }

end;