Como insertar caracteres de colores en RichEdit

[pmcastilla]

Hola dec, gracias por tu ayuda!! Te muestro parte del codigo que estoy usando para insertar un caracter especial.

Código Delphi [-]
         if (Form1.Frame21.RichEdit1.GetTextLen <= 9) then
          begin
            Aux:= Form1.Frame21.RichEdit1.GetTextLen + 1;
            If (Aux<=10) then
              begin
                If (calendario_control(columnas_reg,Form1.RadioGroup1.ItemIndex, Rich_position,Input)) then
                  begin
                    If(Aux=10) then
                      begin
                        columnas_reg[Rich_position,Aux]:=Input; // columnas_ reg es un array[1..24] of array[1..10] of Char;
                      end
                    else
                        columnas_reg[Rich_position,Aux]:=Input;
                    Form1.Frame21.RichEdit1.Text:= Form1.Frame21.RichEdit1.Text + Input;
                    datos_variable(columnas_reg); // recorre el array y segun si es caracter especial o no lo colorea de rojo.
                    Form1.Frame21.RichEdit1.SelStart:= Aux+1;
                    Form1.Frame21.RichEdit1.SelLength:=1;
                    Form1.Frame21.RichEdit1.SelAttributes.Color:=clWindowText;
                    If (Aux=10) then
                      begin
                        Form1.Frame21.RichEdit3.SetFocus;
                        exit;
                      end;
                    Form1.Frame21.RichEdit1.SetFocus;
                  end;
              end;
          end;

creo que es medio rebuscado, por eso queria saber bien si existia alguna forma mas sencilla.