Выделение слов мышкой

char sel[] = "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
int stx,sty;
char ans[] ="011111100000001111100001111111000000111100111111100000000000000111111110000000011111100000000000111111011111100000001111111110000000000011101111110000000000000000001111111111000000000000000000000111111000000000000111111111000000000000011111110000000001110011111000000001111100000001111111100000000000000111111100000000000000011111111000000000001111001111111100000000000000000000011111110000000011111111000000000000000000000011111111111000000000000000011111111100000000011110000000000000111111111100000000000000000000000000";
int tt2 = 0;
 
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
                        stx = RichEdit1->CaretPos.X+(RichEdit1->CaretPos.Y*59);
}
//---------------------------------------------------------------------------
void __fastcall TForm9::FormCreate(TObject *Sender)
{
int i,y;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::RichEdit1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
int i;
sty = RichEdit1->CaretPos.X+(RichEdit1->CaretPos.Y*59);
RichEdit1->SelStart=stx;
 RichEdit1->SelLength=sty-stx;
if (sel[stx] == '1') {
   for (i = stx; i < sty+1; i++) {
     sel[i] = '0';
   }
     RichEdit1->SelAttributes->Color=clBlack;
}
else{
   for (i = stx; i < sty+1; i++) {
     sel[i] = '1';
 
   }
     RichEdit1->SelAttributes->Color=clRed;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Button2Click(TObject *Sender)
{
bool word = false;
int i,err = 0,suc = 0;
   for (i = 0; i < 522; i++) {
 
              if ((sel[i] == ans[i]) && (ans[i] == '0') && (word == true))  {
                word = false;
                suc++;
              }
              if (((sel[i] == '0')&&(ans[i] == '1')))
              {
                err++;
                word = false;
              }
              if (((sel[i] == '1')&&(ans[i] == '0'))) {
                word = false;
              }
 
              if ((sel[i] == ans[i]) && (ans[i] == '1')) {
                  word = true;
              }
   }
   ShowMessage(IntToStr(suc)+"/"+IntToStr(err));
   ShowMessage("Time:"+IntToStr(tt2));
}