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
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