Colorear una palabra en un RichEdit

[UsuarioBaja123]

Código Delphi [-]
procedure TForm1.TextoChange(Sender: TObject);
var
       Posicion : integer;
begin
if
Texto.Lines.Text:=('Hola')
then
begin
         Posicion:=ansipos('Hola',Texto.Lines.Text);
         Texto.SelStart:=Posicion-1;
         Texto.SelLength:=Length('Hola');
         Texto.SelAttributes.Color:=clred;
         Posicion:=ansipos('Hola',Texto.Lines.Text);
end
else
         Texto.SelAttributes.Color := clblack;
end;

¿Por qué no funciona?