Ayuda para escribir Símbolos Lógicos!!!

[Shysu]

Hola, tengo que hacer mi TFC en Delphi y ando bastante perdida, ya que llevo muchos años sin programar.

El caso es que la primera parte de mi TFC es un editor de fórmulas lógicas y se me ocurrió usar un RichEdit para que allí el usuario pueda escribirlas. El problema está a la hora de escribir los símbolos lógicos porque solamente se pueden escribir en el tipo de letra "Symbol". Tengo creados unos botones, cada uno para cada símbolo lógico (en el Caption de cada botón si que se ve correctamente el símbolo lógico), de manera que tú escribes una letra en el Richedit y cuando pulsas uno de los botones te añade el simbolo lógico y te lo deja preparado para seguir escribiendo letras en el tipo de letra que tenia. Tengo puesto el siguiente código en el evento OnClick de cada botón y no funciona (juro que en mi antiguo PC funcionó, pero ahora en el nuevo con Windows Vista no hay manera):

RichEdit1.SelAttributes.Name:='Symbol';
RichEdit1.Seltext:=RichEdit1.Seltext+'$'; /*Este simbolo al escribirlo en "Symbol" te escribe el símbolo "Existe" */
RichEdit1.SelAttributes.Name:='Courier New';
RichEdit1.SetFocus;

El caso es que cuando pulsas el botón no llega a cambiar el tipo de letra y claro te escribe el '$' en lugar del símbolo "Existe".

No se me ocurre otra manera de poder hacer el editor, a lo mejor existe otro componente que me facilitaría el tema de los símbolos lógicos, pero lo desconozco porque ya os digo que hace mucho que no programo nada y me he quedado un poco "obsoleta", jeje.

Por favor si a alguien se le ocurre algo que me lo diga, porque no paso de esta primera parte y claro no avanzo nada (y eso que esta primera parte es la fácil, jeje).

Un saludo y gracias de antemano
Su