Почему дельфи ругается на нижеприведенную запись?

procedure TOptions.FormActivate(Sender: TObject);
var
FIniFile : TRegIniFile; // Для чтения данных из реестра
begin
FIniFile :=TRegIniFile.Create('Software'); // Инициализация реестра
FIniFile.OpenKey('ORGANAZER', true); // Открываю раздел 1
FIniFile.OpenKey('Options', true); // Открываю раздел 2

dxCheckEdit1.Checked := FIniFile.ReadBool('Options_Name', 'Name', dxCheckEdit1.Checked);
dxGraphicEdit2.Style.BorderColor := FIniFile.ReadInteger('Options_Name', 'Name20', dxGraphicEdit2.Style.BorderColor);

dxGraphicEdit2.Font.Style := FIniFile.ReadString('Options_Name', 'Name21', dxGraphicEdit2.Font.Style);

FIniFile.Free;

dxGraphicEdit2.Font.Style := FIniFile.ReadString('Options_Name', 'Name21', dxGraphicEdit2.Font.Style); - на эту строку почемуто дельфи ругаеться. Вопрос как сохранить в реестре стиль текста. (попробывал и в String, Bool, Integer - не с чем работать не хочет?) И как можно это сохранить, я все перепробывал, но так и не получилось!

Добавлено @ 09:50
Код я извеняюсь для загрузке но для сохранения практически идентичен

procedure TOptions.Button7Click(Sender: TObject);
var
FIniFile : TRegIniFile;
begin
FIniFile :=TRegIniFile.Create('Software'); // Инициализация реестра
FIniFile.OpenKey('ORGANAZER', true); // Открываю раздел 1
FIniFile.OpenKey('Options', true); // Открываю раздел 2

FIniFile.WriteString('Options_Name', 'Name21', dxGraphicEdit2.Font.Style); // Сохраняю в реестре значения

FIniFile.Free;

по простому:

1. сохраняем так:

Код

f.WriteBool('options_name', 'name_b', fsBold in font.Style);  f.WriteBool('options_name', 'name_i', fsItalic in font.Style);  f.WriteBool('options_name', 'name_u', fsUnderline in font.Style);  f.WriteBool('options_name', 'name_s', fsStrikeOut in font.Style);

2. а загружаем так:

Код

font.style := [];  if F.ReadBool('options_name', 'name_b', false) then font.style := font.style + [fsBold];  if F.ReadBool('options_name', 'name_i', false) then font.style := font.style + [fsItalic];  if F.ReadBool('options_name', 'name_u', false) then font.style := font.style + [fsUnderline];  if F.ReadBool('options_name', 'name_s', false) then font.style := font.style + [fsStrikeOut];

Можно попробовать вот такой не очень честный способ:

Код

function FStyleToInt(fs:TFontStyles):integer; type  TFStyle=packed record    case integer of      0: (fstyle: TFontStyles);      1: (istyle: integer);  end; var  st: TFStyle; begin  st.istyle:=0;  st.fstyle:=fs;  result:=st.istyle; end;

Для обратной конвертации то же самое, только местами поменять.
Хотя для таких маленьких множеств можно просто перечислить все возможные комбинации (если они не изменятся)...

Спасибо за подсказку, вот о таком способе что то не подумал! СПАСИБО !