Gracias a los que me ayudaron.
El problema lo resolvi mediante el evento OnPrint del QRExpression:
Código Delphi
[-]
procedure TForm17.QRExpr2Print(sender: TObject; var Value: String);
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;
var
n:string;
begin
form17.qrlabel37.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
n:= Deletrear(StrToFloat(Value));
form17.QRLabel39.Caption:=uppercase('( '+n+' PESOS 00/100 M.N.)');
value:=form17.QRLabel37.Caption;
end;