Veamos Tomás
Si nos fijamos en los parámetros recibidos en el evento OnPrint del TQrDbText, vemos que uno de ellos es
Value que es de tipo
var, por lo que podemos aprobecharlo para hacer lo que queremos
Suponemos que tenemos el QRDBText ligado al campo de apellidos
Código:
procedure TfrLstAgenda.QRDBText5Print(sender: TObject; var Value: String);
begin
Value := Trim(Value) + ', ' + Trim(DmRauch.AgendaNombre.Value);
end;