Чтение с ini файла...

procedure TEasySet.BitBtn1Click(Sender: TObject);
const
  FileName:String ='Setting.ini';
var
  IniFile:TIniFile;
  FullFileName:String;
begin
FullFileName := ExtractFilePath(Application.ExeName)+FileName;
IniFile := TIniFile.Create(FullFileName);
IniFile.WriteInteger('Setting', 'Font.Size', FontDialog1.Font.Size);
IniFile.WriteInteger('Setting', 'Font.Color', FontDialog1.Font.Color);
IniFile.WriteInteger('Setting', 'Color', ColorDialog1.Color);
IniFile.WriteBool('Window', 'Start.Checked', CheckBox1.Checked);
IniFile.WriteBool('Setting', 'Bold', fsBold in FontDialog1.Font.Style);
IniFile.WriteBool('Setting', 'Italic', fsItalic in FontDialog1.Font.Style);
IniFile.WriteBool('Setting', 'Underline', fsUnderline in FontDialog1.Font.Style);
IniFile.WriteBool('Setting', 'StrikeOut', fsStrikeOut in FontDialog1.Font.Style);
IniFile.Free;
end;

    function WriteIniInteger(FileName, NameSection, NameParameter: string; Parameter: Integer): Integer;
    function ReadIniInteger(FileName, NameSection, NameParameter: string; Parameter: Integer): Integer;
...
function TForm1.ReadIniInteger(FileName, NameSection,
  NameParameter: string; Parameter: Integer): Integer;
var
  Ini: TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + FileName);
  Result:=Ini.ReadInteger(NameSection, NameParameter, Parameter);
  Ini.Free;
end;
 
function TForm1.WriteIniInteger(FileName, NameSection,
  NameParameter: string; Parameter: Integer): Integer;
var
  Ini: TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + FileName);
  Ini.WriteInteger(NameSection, NameParameter, Parameter);
  Ini.Free;
end;