procedure TfrmMain.btnTestClick(Sender: TObject);
var
  iniSet:TIniFile;
  sFile :string;
  iT1  :integer;
  sT    :string;
  bT    :bool;
begin
  sFile := 'temp.ini';

  // INI파일 만들기(기존에 파일있는 경우는 파일 열기로 됨)
  iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    // INI파일에 정수 쓰기
    iniSet.WriteInteger('Section', 'Num', 33);
    // INI파일에 문자열 쓰기
    iniSet.WriteString('Section', 'String', 'TESTINI');
    // INI파일에 Bool형 쓰기
    iniSet.WriteBool('Section', 'Bool', true);
  finally
    // INI파일 닫기
    iniSet.Free;
  end;

  iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    // INI파일에 정수 읽기
    iT1 := iniSet.ReadInteger('Section', 'Num', 1);
    // INI파일에 문자열 읽기
    sT := iniSet.ReadString('Section', 'String', 'New Form');
    // INI파일에 Bool형 읽기
    bT := iniSet.ReadBool('Section', 'Bool', false);
  finally
    iniSet.Free;
  end;
end;