Código Delphi [-]ADOTable1.FieldByName('FECHA').Value := DateTimePicker1.Date;
ADOTable1.FieldByName('FECHA').Value := DateTimePicker1.Date;