SoloCodigo

Hola Comunidad.
La verdad es que estoy haciendo un pequeño interprete para un proyecto de mi carrera y me esta dando problemas la parte en qeu tengo que escribir las palabras reservadas en negritas en Pbjeto RichEdit porque no tengo ideas de como hacerlo.
si alguien me pudiera dar una pista.
solamente he logrado poner una letra de otro color de esta forma

void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
 if (Key == 'a')
 {
  RichEdit1->SelAttributes->Color = clRed;
 }
 else
 {
  RichEdit1->SelAttributes->Color = clBlack;
 }
}


gracias de antemano

Bueno ya lo hice simplemente habia que hacerle un pequeño trabajo al texto

void TForm1::ResaltarPalabra(AnsiString Palabra)
{
AnsiString Texto;
int Posicion=2;
Texto = RichEdit1->Lines->Text;
while ( Posicion >0 )
{
Posicion = AnsiPos(Palabra, Texto);
RichEdit1->SelStart = Posicion -1;
RichEdit1->SelLength = Palabra.Length();
CurrText()->Style = CurrText()->Style << fsBold;
Texto[Posicion+1] = ' ';
Posicion = AnsiPos(Palabra,Texto);
}
}
 
Saludos Comunidad