Código Delphi [-] DataModule1.Table1.FieldByName('Fecha').AsDate:= DateTimePicker1.Date
DataModule1.Table1.FieldByName('Fecha').AsDate:= DateTimePicker1.Date