[Rofocale]

Bueno ya me salio a ver si les sirve a ustedes esto es para convertir el total de una factura a letras con el componente atexto que descargue de esta web

Código Delphi [-]
procedure TfInformee.facturaDesignBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);

var
  vComponente : TComponent;
  totalx : Double;

begin
  if UpperCase(sender.Name) = 'PIE' then
  begin

     vComponente := fInformee.facturadesign.ReportForm.FindComponent('muestracon');
     if vComponente is TQRLabel then
   begin
       totalx := md.tfacturas.FieldByName('Total').AsFloat;
       Letras1.Numero := totalx;
       (vComponente as TQRLabel).Caption := Letras1.AsString;
       (vComponente as TQRLabel).Enabled := True;

   end;

  end;
end;