__fastcall TfrmInicializace::TfrmInicializace(TComponent* Owner)
    : TForm(Owner)
{
    TIniFile *inisoubor = new TIniFile(GetCurrentDir() + "\\inicializace.ini");

    pVyska = inisoubor->ReadInteger("Rozmeny","Vyska",100);
    pSirka = inisoubor->ReadInteger("Rozmeny","Sirka",100);
    pZleva = inisoubor->ReadInteger("Poloha","Zleva",100);
    pShora = inisoubor->ReadInteger("Poloha","Shora",100);

    pNapis = inisoubor->ReadString("Text","Napis","text nenačten");

    pBox1 = inisoubor->ReadBool("Boxy","Box1",0);
    pBox2 = inisoubor->ReadBool("Boxy","Box2",0);
    pBox3 = inisoubor->ReadBool("Boxy","Box3",0);

  delete inisoubor;
}
//---------------------------------------------------------------------------
__fastcall TfrmInicializace::~TfrmInicializace(){
    TIniFile *inisoubor = new TIniFile(GetCurrentDir() + "\\inicializace.ini");

    inisoubor->WriteString("Text","Napis",ppNapis);

    inisoubor->WriteBool("Boxy","Box1",ppBox1);
    inisoubor->WriteBool("Boxy","Box2",ppBox2);
    inisoubor->WriteBool("Boxy","Box3",ppBox3);

    ppZmena = Now().CurrentDateTime();
    inisoubor->WriteDateTime("Cas","Zmena",ppZmena);

  delete inisoubor;
}