String в TFontStyles Опции

[Unconnected]

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

[volvo]

По аналогии с первым преобразованием - вот так:

function FStoString(fs: TFontStyles): string;
var
  ATypeInfo: PTypeInfo;
  ifs: TFontStyle;
begin
  ATypeInfo := TypeInfo(TFontStyle);
  for ifs := Low(TFontStyle) to High(TFontStyle) do begin
    if ifs in fs then
      result := result + GetEnumName(ATypeInfo, Ord(ifs)) + ',';
  end;
  result := '[' + Copy(result, 1, Length(result) - 1) + ']';
end;