[[egostar]]

Bueno, eso es fácil, crea un arreglo de TSXDecimal y asunto resuelto,

Código Delphi [-]

var
   qAux:TQuery;
   XsDec :Array[1..4] of  TxsDecimal;
   I: integer;

begin
  for I := 1 to 4 do
      XsDec[i] := TXSDecimal.Create;

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

Saludos