Хранение и изменение пароля и даты в ini файле

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "IniFiles.hpp"
 
 
#include "DateUtils.hpp"
 
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
TIniFile *Ini = new TIniFile("options.ini");
 
 
 TDate B = StrToDate("04.06.2016");
 //char pas[] = "m6c2fa0B1G";
 char pas[] =" ";
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDate A = Now().CurrentDate();
strcpy(pas,Ini->ReadString("Edits","Edit3","").c_str());
B =StrToDate(Ini->ReadString("Edits","B","Def"));
 
signed char Result = CompareDate(A, B);
switch (Result) {
  case -1:
  {
 
if ( strcmp(pas,Edit1->Text.c_str() ) == 0)
{Form1->Visible=false;
Form2->Visible=true; }
else
if ( strcmp(pas,Edit1->Text.c_str() ) != 0)
ShowMessage("Íåâåðíî ââåäåí ïàðîëü");
 
    break;  }
  case 0:
  {
  //char pas[] = "mhu34gi@";
  Ini->WriteString("Edits","Edit2",Edit2->Text);
  if ( strcmp(pas,Edit1->Text.c_str() ) == 0)
{Form1->Visible=false;
Form2->Visible=true; }
else
if ( strcmp(pas,Edit1->Text.c_str() ) != 0)
ShowMessage("Íåâåðíî ââåäåí ïàðîëü");
    break;  }
  case 1:
   Form3->Visible=true;
 
    break;
default:
  break;
}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Form1->Close();
Form2->Close();
//Form3->Close();
//Form4->Close();
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Label3->Visible=true;
Edit2->Visible=true;
Edit3->Visible=true;
Edit4->Visible=true;
Button3->Visible=false;
Button5->Visible=true;
 
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
B=StrToDate(Edit4->Text.c_str());
char pas1[] = "1234";
if ( strcmp(pas1,Edit2->Text.c_str() ) == 0)
{
//pas = Edit2->Text.c_str();
//strcpy(pas,Edit2->Text.c_str()) ;
 
Ini->WriteString("Edits","Edit3",Edit3->Text);
 
Ini->WriteString("Edits","B",Edit4->Text);
 
ShowMessage("Ïàðîëü èçìåíåí");
Label3->Visible=false;
Edit2->Visible=false;
Edit3->Visible=false;
Edit4->Visible=false;
Button3->Visible=true;
Button5->Visible=false;
}
else
{if ( strcmp(pas1,Edit2->Text.c_str() ) != 0)
ShowMessage("Íåâåðíî ââåäåí ïàðîëü àäìèíèñòðàòîðà");    }
 
 
 
}
//---------------------------------------------------------------------------