Lire/enregistrer un ensemble de propriétés par exemple TFontStyles

type
pFontStyles = ^TFontStyles;
pInteger = ^Integer;

function FontStylesToInteger ( const Value : TFontStyles) : Integer;
begin
Result := pInteger(@Value)^;
end;

function IntegerToFontStyles( const Value : Integer) : TFontStyles;
begin
Result := pFontStyles(@Value)^;
end;