Como insertar caracteres de colores en RichEdit

[[Lepe]]

Lo normal es preparar un botón con el siguiente código:

Código Delphi [-]
if rich.SelLenght = 1 then  // solo si hay 1 letra seleccionada
with rich.SelAttributes.Font do
  if Color = clRed then
    Color := clWindowText
  else
    Color := clRed;

Ahora el usuario selecciona con el ratón el carácter que quiere colorear y pulsa ese botón alternando el color de la selección.

Saludos