Дата неправильно заносится в таблицу Paradox

DateTimeToTimeStamp(TDateTime DateTime)

ADOTable1->FieldByName("DT")->Value=DateTimeToTimeStamp(dt);

ADOTable1->FieldByName("DT")->Value

ADODataSet1->Close();
ADODataSet1->Parameters->ParamByName("KD")->Value=Edit1->Text.Trim();
ADODataSet1->Parameters->ParamByName("DT1")->Value=dt1->DateTime.FormatString("dd.MM.yyyy 00:30:00");
ADODataSet1->Parameters->ParamByName("DT2")->Value=dt2->DateTime.FormatString("dd.MM.yyyy 00:00:00");
ADODataSet1->Open();
ADODataSet1->First();
 
TDateTime dt;
for(ADODataSet1->First(); !ADODataSet1->Eof ; ADODataSet1->Next())
        {
        ADOTable1->Insert();
        ADOTable1->FieldByName("Kod")->Value=Edit2->Text;
        dt=ADODataSet1->FieldByName("DT")->AsDateTime;
        ADOTable1->FieldByName("DT")->AsDateTime=dt;
        ADOTable1->FieldByName("Pp")->Value=ADODataSet1->FieldByName("Pp")->Value;
        ADOTable1->FieldByName("Po")->Value=ADODataSet1->FieldByName("Po")->Value;
        ADOTable1->FieldByName("Qp")->Value=ADODataSet1->FieldByName("Qp")->Value;
        ADOTable1->FieldByName("Qo")->Value=ADODataSet1->FieldByName("Qo")->Value;
        ADOTable1->Post();
        }

String date = IntToStr(YearOf(dt1->Date)) + "-"
            + IntToStr(MonthOf(dt1->Date))
            + "-" + IntToStr(DayOf(dt1->Date));
ADODataSet1->Parameters->ParamByName("DT1")->Value = date;