Hola Jose, parece que tienes un espacio demas en tu campo.
Código Delphi
[-]
vTotalCUC:=ADOQuery1.FieldByName('TotalCUC ').AsCurrency;
vTotalCUC:=ADOQuery1.FieldByName('TotalCUC').AsCurrency;
También lo puedes recuperar con Fields.
Código Delphi
[-]
vTotalCUC:=ADOQuery1.Fields[0].AsCurrency;
Saluditos