Código Delphi [-] DateTimePicker1.Date := Query1.FieldByName('fecha').AsDate;
DateTimePicker1.Date := Query1.FieldByName('fecha').AsDate;