Como poner color a una palabra buscada

[[Bicho]]

Hola, no se si yo al final me he aclarado con lo que buscabas, pero lo que entendí es que el resultado que te lanza la búsqueda lo hace sobre un dbgrid y tú quieres resalta el texto de una columna en concreto, no es así?
Si es así prueba a revisar este hilo. Básicamente se trata de jugar con el canvas del dbgrid en el evento ondrawcell y alí modificar el color de la fuente de la columna que deseas.

Espero te sirva,

Saludos

[Alexander]

Bicho gracias. Más sin embargo no es lo que busco. Allí pintan la celda especifica.

Yo necesito pintar de otro color, solo una palabra del texto completo.

Gracias

Alexander

[Alexander]

Haciendo pruebas helogrado hacer lo siguiente:

Paso el texto a un RichEdit y en este si se puede resaltar la palabra, así:

Código Delphi [-]
  procedure ResaltaPalabraEnRE(RichEdit:TRichEdit;Palabra:string);
     var
       Texto    : string;
       Posicion : integer;
     begin
       texto := RichEdit.Lines.Text;
       repeat
         Posicion:=ansipos(palabra,texto);
         Richedit.SelStart:=Posicion-1;
         Richedit.SelLength:=Length(Palabra);
         Richedit.SelAttributes.Color:=clred;
         texto[Posicion+1]:=Chr(255);
         Posicion:=ansipos(palabra,texto);
       until (Posicion=0);
     end;

Como podré hacer esto mismo pero con un DBRichEdit o con DBGrid.

Gracias

Alexander