Delphi 保存字体信息

写INI，就是麻烦点，我用的是MEMO：
var
  filedir:string;
  ini:Tinifile;
  MStyles:TFontStyles;
  MStylespoint:pointer;

const
   MColor='Color';
   MFontName='FontName';
   MFontSize='Size';
   MFontColor='FontColor';
   MFontStyle='FontStyle';

procedure TForm1.FormCreate(Sender: TObject);  //取执行文件目录
begin
    getdir(0,filedir);
end;

procedure TForm1.Button1Click(Sender: TObject);  //写
begin
      ColorDialog1.Execute;
      with Memo1 do begin
         Color:=ColorDialog1.Color;
      end;
      FontDialog1.Execute;
      with Memo1 do begin
         Font:=FontDialog1.Font;
      end;
      Ini:=TIniFile.Create(filedir+'\Font_Color.ini');