Error al asignar la fecha en la creacion de nuevo registro

[alexglez1255]

buenos dias a todos y de antemano gracias por tomarse la molestia de ayudarme
Estoy dando haciendo una forma para dar de altas contratos de ventas a credito
y estoy usando campos anidadosen el ClientDataSet CDScdsContratUnCliente hago lo siguiente

Código Delphi [-]
procedure Tlogicanegocio.cdsContratUnClienteNewRecord(DataSet: TDataSet);
begin
 cdsContratUnClienteFECHA_ALTA.NewValue:=date;
 cdsContratUnClienteHORA_ALTA.NewValue:=time;
end;

utilizo un DBnavigator para generar el contrato nuevo
pero cuando quiere asignar la fecha me genera el siguiente error:

project Falcon raised exceptio class EAaccessViolation with messagge "Access Violation an address 4DB1058E
in module "midas.dll" write of address 00000037E" process stoped. use step or Run to continue

Tiene alguna idea por que ?

Estoy usando delphi 7 enterprise

[alexglez1255]

gracias a todos, ya encontre el error.
se escribe asi

Código Delphi [-]
procedure Tlogicanegocio.cdsContratUnClienteNewRecord(DataSet: TDataSet);
begin
 cdsContratUnClienteFECHA_ALTA.Value:=date;
 cdsContratUnClienteHORA_ALTA.Value:=time;
end;