CheckListBox

#include <vcl.h>
#include <Inifiles.hpp>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TPasswordDlg *PasswordDlg;
TIniFile *Ini; //=  new TIniFile(Patch+"Klevalka.ini");
 
//---------------------------------------------------------------------
__fastcall TPasswordDlg::TPasswordDlg(TComponent* AOwner)
    : TForm(AOwner)
{
AnsiString Patch;
  Patch = ExtractFilePath(ParamStr(0)) ; // получаем путь к каталогу программы
  Ini = new TIniFile(Patch+"Klevalka.ini");
  
   {
CheckBox1->Checked = Ini->ReadBool("Data","CheckBox",CheckBox1->Checked);// получаем стоит или не стоит галочка
 if (CheckBox1->Checked == true)
 
  {
  Edit1->Text =Ini->ReadString("Data","login","Def");
 
  Password->Text =Ini->ReadString("Data","Password","Def"); } }   // если галочка стоит то заполняет едит
//---------------------------------------------------------------------
void __fastcall TPasswordDlg::OKBtnClick(TObject *Sender)
{if (PasswordDlg->Edit1->Text<0||PasswordDlg->Edit1->Text>9)
           ShowMessage ("Введите логин и пароль");
    else   
  Ini->WriteString("Data","login",Edit1->Text);  //запоминает логин
  Ini->WriteString("Data","Password",Password->Text);  //запоминает пароль
}
//---------------------------------------------------------------------
 
void __fastcall TPasswordDlg::FormClose(TObject *Sender,
      TCloseAction &Action)
{
delete Ini;
Ini = NULL;
}
//---------------------------------------------------------------------------
 
void __fastcall TPasswordDlg::FormClose(TObject *Sender,
      TCloseAction &Action)
{
delete Ini;
Ini = NULL;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TPasswordDlg::CheckBox1Click(TObject *Sender)
{
 Ini->WriteBool("Data","CheckBox",CheckBox1->Checked); // записывает
  if (CheckBox1->Checked == false)
   { Edit1->Clear();Password->Clear(); }// стирает
}
//---------------------------------------------------------------------------