Colorear una palabra en un RichEdit

[ZayDun]

Hola ZaneMS,

Creo que lo que buscas es esto:

Código Delphi [-]
procedure WordsColor(RE: TRichEdit; TheWord: String; Color: TColor; Style: TFontStyles);
var
i, CharPos, CharPos2, noChars: Integer;
begin
CharPos := 0;
noChars := 0;
for i := 0 to Pred(RE.Lines.Count) do
noChars := noChars + Length(RE.Lines[i]);
repeat
CharPos2 := RE.FindText(TheWord, CharPos, noChars, [stWholeWord]);
CharPos := CharPos2+1;
RE.SelStart := CharPos2;
RE.SelLength := Length(TheWord);
RE.SelAttributes.Color := Color;
RE.SelAttributes.Style := Style;
until charpos = 0;
end;

No he entendido bien lo del timer, pero creo que es mejor que lo pusieras en el evento OnChange de el RichEdit.

Código Delphi [-]
//Ejemplo de uso
WordsColor(RichEdit1, 'Hola', clRed, [fsItalic, fsBold]);

Saludos.