<pre class="brush: delphi;" title="Ini ファイルの読み書き">
implementation

uses
  IniFiles;

// Iniファイルへの書き込み
procedure TForm1.btnWriteClick(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    Ini.WriteString('セクション', '文字列型', edtStr.Text);
    Ini.WriteInteger('セクション', '整数値型', StrToInt(edtInt.Text));
    Ini.WriteFloat('セクション', '実数値型', StrToFloat(edtFloat.Text));
    Ini.WriteBool('セクション', '論理値型', chkBool.Checked);
  finally
    Ini.Free;
  end;
end;

// Iniファイルからの読み込み
procedure TForm1.btnReadClick(Sender: TObject);
var
  Ini: TIniFile;
  s: String;
  i: integer;
  f: Single;
  b: Boolean;
begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    s := Ini.ReadString('セクション', '文字列型', 'デフォルト値');
    i := Ini.ReadInteger('セクション', '整数値型', 0);
    f := Ini.ReadFloat('セクション', '実数値型', 0.1);
    b := Ini.ReadBool('セクション', '論理値型', False);
  finally
    Ini.Free;
  end;
  edtStr.Text := s;
  edtInt.Text := IntToStr(i);
  edtFloat.Text := FloatToStr(f);
  chkBool.Checked := b;
end;
</pre>