При добавлении даты значение меняется

void __fastcall Tfrm_dobavlenie_urist::DateTimePicker2Enter(TObject *Sender)
{
if (Edit6->Text!=" ")
        DateTimePicker2->Date=StrToDate(Edit6->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall Tfrm_dobavlenie_urist::DateTimePicker2Exit(TObject *Sender)
{
 Edit6->Text=DateToStr(DateTimePicker2->Date);
}
 
 
void __fastcall Tfrm_dobavlenie_urist::FormCreate(TObject *Sender)
{
 
DateTimePicker2->Date=Now();
Edit6->Text=DateToStr(DateTimePicker2->Date);
 
}
 
void __fastcall Tfrm_dobavlenie_urist::Button1Click(TObject *Sender)
{
 
if (Edit1->Text.IsEmpty() || Edit2->Text.IsEmpty() || Edit3->Text.IsEmpty() || Edit4->Text.IsEmpty() || Edit3->Text.IsEmpty() || Edit6->Text.IsEmpty() )
{
       Application->MessageBoxW((const wchar_t*) L"Поле не может быть пустым!! Введите пожалуйста данные ", (const wchar_t*) L"Ошибка ввода!",MB_OK+MB_ICONSTOP);
 
    }
     //если все заполнены
    else
    {
  ADOQuery_dobavlenie->Close();
    ADOQuery_dobavlenie->SQL->Clear();
 
 
    ADOQuery_dobavlenie->SQL->Add("INSERT INTO acz.dogovor VALUES ('"+Edit1->Text+"', '"+Edit2->Text+"', '"+Edit3->Text+"', '"+Edit4->Text+"', '"+Edit5->Text+"', '"+Edit6->Text+"', '"+Edit7->Text+"', '"+Edit8->Text+"', '"+Edit9->Text+"', '"+Edit10->Text+"')");
  // ADOQuery_dobavlenie->SQL->Add("");
 
    //активируем запрос 
 ADOQuery_dobavlenie->ExecSQL();
 
 
    }
 
}