analizador lexico

[donpedro]

hola a todos, estoy realizando un proyecto universitario llamado analizador lexico, lo estoy elaborando en delphi. bueno aqui va mi explicacion: tengo un formulario con un richedit donde voy a escribir mi propio programa, por ejemplo:

inicio
declaro a,b,r:entero;
a=1
b=2
r=a+b
fin;

donde inicio, declaro, entero y fin son palabras reservadas del propio lenguaje. dichas palabras las tengo dentro de un array estatico

Código Delphi [-]
public
    { Public declarations }
const preservadas : array[1..4] of string =('inicio','fin','declaro','entero');

mi duda es, como puedo recorrer el richedit y comparar las palabras reservadas del arreglo y si existe convertirla a mayuscula colocandola de color azul. osea como lo hace mysql que las palabras o comandos del manejador por ejemplo create al darle a la barra espaciadora la coloca en mayuscula y azul..............espero que me hallan podido entender..........espero su ayuda......muchas gracias.