[ecfisa]

Hola de nuevo.

Olvidé un detalle... Luego de crear la instancia cantidad, es conveniente liberarla con Free una vez que termines de usarla.

A modo de ejemplo:

Código Delphi [-]
uses XSBuiltIns, FMTBcd;

...
var
  cantidad: TXSDecimal;
  valor: Double;
begin
  valor:= 123.456;
  cantidad:= TXSDecimal.Create;
  try
    cantidad.AsBcd:= DoubleToBcd(valor);
    // operaciones con 'cantidad'
    ...
  finally
    cantidad.Free; 
  end;
end;

Saludos.