Свойства шрифта Style и Color в виде строки

Как мне получить значение Font.Style и Font.Color в виде строки, я хотел бы присвоить его заголовку компонента Label, но style и color не являются строковыми величинами.

Есть масса способов это сделать, но я использую следующий способ:

const

  fsTextName: array
[TFontStyle] of
 string
[11] = ('fsBold', 'fsItalic', 'fsUnderline', 'fsStrikeOut');
  fpTextName: array
[TFontPitch] of
 string
[10] = ('fpDefault','fpVariable','fpFixed');

Позже, в коде, я так использую эти имена:

var

  TFPitch: TFontPitch;
  TFStyle: TFontStyle;
  FString: String
;
...

FString := '';
for
 TFStyle := fsBold to
 fsStrikeOut do

  if
 TFStyle in
 Canvas.Font.Style then

    Fstring := Fstring+fsTextName[TFStyle]+',';
if
 FString<>'' then

  dec(FString[0]); { убираем лишний разделитель ',' }
something := FString;

FString := fpTextName[Canvas.Font.Pitch];
something := FString;

Примерно также нужно поступить и с именованными цветами типа TColor.

Другое по теме:

• Как проинсталлировать свои шрифты
• Определение типа используемого шрифта
• PopupComponent и шрифты