вот готовая функция и используй ее везде и не парься
//--Функция - Преобразование даты в строку SQL формата---------------------------------
AnsiString __fastcall TFEnergy::DateToSQLFormatIgor(TDateTime Val)
{
AnsiString res_str = "";
AnsiString st = DateToStr(Val);
#ifdef DEBUG
res_str = st;
#else
//Дата в программе имеет вид 01.02.1995
//После преобразования получим 19950201
res_str = st.SubString(7, 4);
//res_str += "-";
res_str += st.SubString(4, 2);
//res_str += "-";
res_str += st.SubString(1, 2);
#endif
return res_str;
}
Используем так...
ADOQuery_dobavlenie->SQL->Add("INSERT INTO acz.dogovor VALUES ('"+Edit1->Text+"', '"+Edit2->Text+"', '"+Edit3->Text+"', '"+Edit4->Text+"', '"+DateToSQLFormatIgor(DateTimePicker1->Date)+"', '"+Edit6->Text+"', '"+Edit7->Text+"', '"+Edit8->Text+"', '"+Edit9->Text+"', '"+Edit10->Text+"')");