String в TFontStyles Опции

[Unconnected]

Привет всем.
Вопрос такой, читаю из файла конфигурации параметры шрифта TRichEdit, итого параметры в строковых переменных. Параметры - шрифт, стиль шрифта, размер. Когда доходит до присваивания этих параметров РичЭдиту, то происходит несовпадение типов String и TFontStyles. Так вот, как можно "конвертировать" строку строкового типа, в которой будет [fsBold] или [fsBold,fsUnderline], например, в тип TFontStyles, чтобы можно было это присвоить свойству стиля текста RichEdit?

[volvo]

RTTI в чистом виде:

Uses {..., } TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, st: string;
  ifs: TFontStyle;

  ATypeInfo: PTypeInfo;
  f: TFontStyles;

begin
  s := '[fsBold,fsUnderline]'; // Это - твоя строка
  ATypeInfo := TypeInfo(TFontStyle);

  f := []; // Совсем забыл, это тоже надо, мало ли что...
  for ifs := Low(TFontStyle) to High(TFontStyle) do begin
    if pos(GetEnumName(ATypeInfo, ord(ifs)), s) > 0 then include(f, ifs);
  end;
  Memo1.Font.Style := f; // F содержит нужные стили. Для теста проверял на TMemo
end;