Hola...
si usas un DataSet la sentencia que te escribo a continuacion puede que te sea util...
Esto para cargar desde DataTimePiker...
Código Delphi
[-]
procedure TfrmPersonaCelula.dtpFecNacChange(Sender: TObject);
begin
if frm.DataSetPersona.State in [dsEdit, dsInsert] then
DtModulo.qryPersonaFecNac.Value := dtpFecNac.Date;
end;
Es es en centido contrario...
Código Delphi
[-]procedure TfrmCelula.FormShow(Sender: TObject);
begin
if frmPersona.dataSetPersona.State in [dsEdit] then
dtpFecNac.DateTime:= DtModulo.qryCelulasCelFecNac.AsDateTime;
if frmPersona.dataSetPersona.State in [dsInsert] then
dtpFecNac.DateTime:= Date;
end;
Despues tienes mas variantes de uso, pero eso lo va usar de acuerdo a como este cargando los datos...