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
[-]WordsColor(RichEdit1, 'Hola', clRed, [fsItalic, fsBold]);
Saludos.