ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "INSERT INTO Замовлення (Код_кл,Код_прод,Початок_Оренди,Кінець_Оренди) VALUES(:Код_кл,:Код_прод,:Початок_Оренди,:Кінець_Оренди)";
ADOQuery1->Parameters->Items[0]->Value=DBLookupComboBox1->Text;
ADOQuery1->Parameters->Items[1]->Value=DBLookupComboBox2->Text;
ADOQuery1->Parameters->Items[2]->Value=DateTimePicker1->Date;
ADOQuery1->Parameters->Items[3]->Value=DateTimePicker2->Date;

ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM Замовлення");
ADOQuery1->Active=true;