procedure Tfrmalquileres.btncargarClick(Sender: TObject); begin inherited; clidatos.FieldByName('FECHA').AsDateTime:=DateTimePicker1.DateTime; end;