Colorear una palabra en un RichEdit

[UsuarioBaja123]

Vale, ahora que me lo solucionaste de la mejor manera posible (que de paso digo al primero que me contestó que su código casi me había servido) este es mi problema.

Necesito que cuando tu código haga su funcionamiento si yo siga escribiendo vuelva a la letra normal. En este caso, estoy escribiendo (la palabra a buscar es "HOLA":

_____________
HOLA a todos
_____________

y me lo deja así:

_____________
HOLA a todos
_____________

Debido a que sigo escribiendo con la misma fuente anterior. Me gustaría que si usara un texto como el siguiente se quede así:

_______________
HOLA a todos
HOLA a ustedes
HOLA sin perdones (no se me ocurre nada)
hola //Ven que también me den válidas las minúsculas.
_______________

Y cuando me encuentra la palabra a poner en rojo resulta que me la selecciona lo cual no me deja escribir a menos que esté quitando el ratón todo el rato. Algo así:

Hol ---> Hola ----> Como en la imagen adjunta...

Y al seguir escribiendo me la vuelve a seleccionar y no me deja seguir.

Por favor, ayúdenme; ya que terminé el compilador en C quiero poder poner un entorno con colores y resaltos. A ver si estos meses han servido para algo. (Y no, no es de la universidad es para un proyecto mío voluntario)

[ecfisa]

Hola ZaneMS.

Empezado por ZaneMS

Necesito que cuando tu código haga su funcionamiento si yo siga escribiendo vuelva a la letra normal.

Una posible solución es:

Código Delphi [-]
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  RichEdit1.SelAttributes.Assign(RichEdit1.Font);
end;

Otra:

Código Delphi [-]
procedure TForm1.ButtonFont(Sender: TObject);
begin
  if FontDialog1.Execute then
    RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;

Saludos