calcular porcentaje

[lucas05]

Hola, estoy usando el QuickReport para imprimir el contenido de tablaA , previo filtrado.

Código Delphi [-]
QuickReport1:=TQuickReport1.Create(self);
QuickReport1.ADOQuery1.SQL.Add('select ta_fecha, ta_total');
QuickReport1.ADOQuery1.SQL.Add('from tablaA');
QuickReport1.ADOQuery1.SQL.Add('where  ta_fecha between'+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))
+'AND'+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker2.Date)));

QuickReport1.ADOQuery1.Open;
QuickReport1.QRDBText1.DataField:='ta_fecha';
QuickReport1.QRDBText2.DataField:='ta_total';

QuickReport1.Preview;

Antes de imprimir el reporte como puedo aplicarle a cada uno de los valores del campo ta _total un descuento de 10%.
El 10% esta guardado en tablaB, en el campo tb _ porcentaje, este valor esta guardado en una tabla ya que el usuario puede modificarlo.

Espero haber sido claro. Muchas Gracias