Почему не работает код?

for (int i=1;i<s-1;i++){
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select Имя,Класс from 1 where Код="+i);
ADOQuery1->Active=True;
j[i]=DBEdit1->Text;
Memo1->Lines->Add(j[i]);
}

for( int i = 1; i < s - 1; i ++ )
{
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("SELECT [Имя], [Класс] from [1] where [Код] = " + IntToStr( i ) );
   ADOQuery1->SQL->Open();
   
   j[ i ] = DBEdit1->Text;
   Memo1->Lines->Add( j[ i ] );
}

   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("SELECT [Имя], [Класс] from [1]" );
   ADOQuery1->SQL->Open();
   
   while( !ADOQuery1->Eof )
   {   
      Memo1->Lines->Add( ADOQuery1->FieldByName("Имя")->AsString );
      ADOQuery1->Next( );
   }

ADOQuery1->First();

Memo2->Clear();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT [Имя], [Класс] from [1]" );
ADOQuery1->Open();
 
for (int a=1;a<=i;a++){
 
        ADOQuery1->First();
        while(!ADOQuery1->Eof){
        if (m[a]!=ADOQuery1->FieldByName("Имя")->AsString + " "+ADOQuery1->FieldByName("Класс")->AsString)c++;}
 
        if (c==s){
        Memo2->Lines->Add(ADOQuery1->FieldByName("Имя")->AsString + " "+ADOQuery1->FieldByName("Класс")->AsString);
        ADOQuery1->Next();
        c=0;
        }
        else (c=0);
        }

bool f;
for( int a = 1; a <= i; a ++ )
{
   f = false;
   ADOQuery1->First( );
   while( !ADOQuery1->Eof )
   {
      if (m[ a ] == ADOQuery1->FieldByName("Имя")->AsString + " " + ADOQuery1->FieldByName("Класс")->AsString)
      {
         f = true;
         break;
      }
      ADOQuery1->Next( );
   }
 
   if( !f )
        Memo2->Lines->Add(ADOQuery1->FieldByName("Имя")->AsString + " " + ADOQuery1->FieldByName("Класс")->AsString);
}