void __fastcallTForm1::RichEdit1KeyUp(TObject *Sender, WORD
 &Key, TShiftState Shift)
{
hlter->HighLight(RichEdit1);
}