Asignacion a Variable de tipo TXSCDecimal

[ruedabeat2003]

Mi asignación la hice finalmente así:

var
   qAux:TQuery;
   XsDec : TxsDecimal;

begin
  XsDec := TXSDecimal.Create;
  XsDec.XSToNative(FormatFloat('%f',qAux.fieldByName('cantidad_comer').AsFloat));
  las_mercancias[i].cantidad := XsDec;

Incluso puedo ver el valor de mi arreglo donde a cantidad se asigna una dirección de memoria.
El problema ahora es que necesito hacer 3 asignaciones más a 3 elementos más de mi arreglo las_mercancias[i], y esto mismo para 3 registros de mi arreglo, uso la misma variable de paso definida anteriormente(XsDec : TxsDecimal), pero al final todos los elementos del arreglo tienen la misma dirección de memoria y el mismo valor, es decir el ultimo valor asignado a la variable de paso. Eso significa que lo que a cada elemento de mi registro y cada registro de mi arreglo le asigne es la ultima dirección de memoria asignada, lo que necesito es asignar el valor.

Necesitaría declarar un arreglo alterno para poner ahí mis valores o como puedo asignar el 'valor' a cada elemento?

  i := cuantos_regs(consec);
  SetLength(las_mercancias,i);
  i := 0;
  while not qAux.Eof do
   begin
     las_mercancias[i] := Mercancia.Create;
     las_mercancias[i].descripcionGenerica := qAux.fieldByName('descr_generica').AsString;
     las_mercancias[i].claveUnidad := UnidadMedida(qAux.fieldByName('cve_unidad_comer').AsInteger - 1);

     XsDec.XSToNative(FormatFloat('%f',qAux.fieldByName('cantidad_comer').AsFloat)); // Primer campo
     las_mercancias[i].cantidad := XsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_unitario').AsFloat]); // Segundo campo
     las_mercancias[i].valorUnitario := xsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_total').AsFloat]);    // Tercer campo
     las_mercancias[i].valorTotal := xsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_dolares').AsFloat]); // Cuarto campo
     las_mercancias[i].valorDolares := xsDec;

     Showmessage(las_mercancias[i].cantidad.NativeToXS);
     Showmessage(las_mercancias[i].valorUnitario.NativeToXS);
     Showmessage(las_mercancias[i].valorTotal.NativeToXS);
     Showmessage(las_mercancias[i].valorDolares.NativeToXS);
     qAux.Next;
     i := i + 1;
   end; // While
   XsDec.Free;
   qAux.Destroy;

Los showmessage me despliegan todos el mismo valor en cada iteración, al final los 4 elementos en los n-registros tienen el mismo valor.

He intentado de esta manera:

las_mercancias[i].valorDolares.DecimalString := Format('%f', [qAux.fieldByName('valor_dolares').AsFloat]);

No me marca error en compilacion pero si me marca un Access Violation en tiempo de ejecución.

Probe con :

las_mercancias[i].valorDolares.XSToNative(FormatFloat('%f',qAux.fieldByName('valor_dolares').AsFloat));

Pero me marca un Access Violation en tiempo de ejecución.

De antemano gracias por su ayuda.