[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;