[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