Cómo poner QRRichText en negrita

[Panasys]

Navegando en el Club encontre esto que es lo que necesito para pasar partes de una cadena a negrita para un reporte.

Pero no logro poner esto como una funcion, ya que no se cual es el result.

Y utilizarlo como esta no me funciona ya que me pide que declare Negrita y no se como declararla, si alguien me da una mano estare muy agradecido ya que es lo que necesito.

Obviamente cambie FListado por el form que estoy utilizando por ello me pide declararlo.

Pero si lo mando como funcion no tengo el resultado de la funcion (ej: funcion(x:integer):integer).

Gracias y abrazo

Javier

[Panasys]

Ya lo solucione, probe dando el resultado como string y anduvo:

Código Delphi [-]
Function Negrita (var Rich : TRichEdit; Texto : string; Posicion : integer): String;
var
Pos : integer;
begin
// Asumimos que los RichText no tienen más de 1000 caracteres, esto se 
//puede variar
Pos := Rich.FindText(Texto, Posicion, 1000, []);
Rich.SelLength := 0;
Rich.SelStart := Pos;
Rich.SelLength := length(Texto);
Rich.SelAttributes.Style := [fsBold];
Rich.SelLength := 0;
Rich.SelAttributes.Style := [];
end;

Gracias y abrazo

Javier