[[cHackAll]]

Utiliza un TRichEdit;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 RichEdit1->SelAttributes->Color = clBlue;
 RichEdit1->SelText = "SELECT";
 RichEdit1->SelAttributes->Color = clBlack;
 RichEdit1->SelText = " * ";
 RichEdit1->SelAttributes->Color = clBlue;
 RichEdit1->SelText = "FROM";
}

Lo anterior es solo una idea... necesitas interpretar cada palabra de la consulta SQL y pintarla de acuerdo a que dicha palabra se encuentre en una lista de palabras reservadas.

Saludos