Калькулятор Buidler

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "IniFiles.hpp" // подключаем: модуль IniFiles
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
// наш файли ИНИ будет размещаться в папке приложения
// дадим файлу ИНИ имя "options.ini"
AnsiString sIniFile = IncludeTrailingPathDelimiter(
                      ExtractFilePath(Application->ExeName))+
                      "options.ini";
// объявим глобальную строковую переменную режима калькулятора
AnsiString sCalcMode;
// создадим обьект класса TIniFile, назовем его Ini
TIniFile *Ini = new TIniFile(sIniFile);
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
//  ShowMessage(sIniFile); // можем проверить путь
  Label1->Font->Size = 12;
  Label1->Font->Color = clRed;
  Label1->Caption = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
// считываем в переменную режим калькулятора из файла ИНИ
  sCalcMode = Ini->ReadString("Mode","CalcMode",sCalcMode);
// пытаемся что-нибудь запустить
  if (sCalcMode == "simple") {
    Label1->Caption = "Обычный калькулятор"; // просто проверка
    Button1Click(Sender);
  }
  else if (sCalcMode == "full") {
    Label1->Caption = "Инженерный калькулятор"; // просто проверка
    Button2Click(Sender);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
// и, как порядочные люди, убираем за собой при разрушении формы
  delete Ini; // удаляем объект
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// далее, при открытии обычного калькулятора,
// присвоим соответствующее значение переменной
  sCalcMode = "simple";
// и запишем это состояние в секцию "Mode" в файлt ини
  Ini->WriteString("Mode","CalcMode",sCalcMode);
  ShowMessage("Проверка нажатия Button1, в т.ч., при запуске программы"); // просто проверка
// ваш код открытия калькулятора в обычном режиме
// ...
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// аналогично для Button2
// при открытии инженерного калькулятора,
// присвоим соответствующее значение переменной
  sCalcMode = "full";
// и запишем это состояние в секцию "Mode" в файлt ини
  Ini->WriteString("Mode","CalcMode",sCalcMode);
  ShowMessage("Проверка нажатия Button2, в т.ч., при запуске программы"); // просто проверка
// ваш код открытия калькулятора в инженерном режиме
// ...
}
//---------------------------------------------------------------------------