Поиск ошибок в словах

int k,a=0,b,c; AnsiString t;
  int int_pos;
  bool flag=0;
  AnsiString text=RichEdit1->Text;
  TStringList *List=new TStringList;
  List->DelimitedText=RichEdit1->Text;
  Query1->Open();
  for(int i=0;i<List->Count;i++)
    for(Query1->First();!Query1->Eof;Query1->Next())
      {
        t=Query1->FieldByName("slovo")->AsString;
        String n="Возможно вы имели в виду  '"+t+"'  вместо  '"+List->Strings[i]+"'";
        k=List->Strings[i].Pos(Query1->FieldByName("pristavka")->AsString);
        a=List->Strings[i].Pos(Query1->FieldByName("koren")->AsString);
        b=List->Strings[i].Pos(Query1->FieldByName("syff")->AsString);
        c=List->Strings[i].Pos(Query1->FieldByName("okonch")->AsString);
        if(((k>0&&k<2)||(a>0&&a<4)||(b>5)||(c>5))&&t!=List->Strings[i]&&t.Length()==List->Strings[i].Length())
           if((MessageBox(NULL,n.c_str(),"Внимание", MB_YESNO | MB_ICONWARNING))==IDYES)
             {
               flag=1;
               while(text.Pos(List->Strings[i]))
                 {
                   int_pos = text.Pos(List->Strings[i]);
                   RichEdit1->SelStart=int_pos-1;
                   RichEdit1->SelLength=t.Length();
                   RichEdit1->SelText = t;
                   text[int_pos]='0';
                 }
             }
      }
  if(flag==0)
     ShowMessage("Ошибок не найдено");