Ошибка List Index Out of Bounds (1)

    if(com=="find_project")
        {
        answer->Add("find_project");
           SQL="SELECT * FROM PROJECTS where Name LIKE  '"+(*command)[1]+"%'";
                SQL=SQL+"ORDER BY Num";                    
                ADOQuery1->SQL->Add(SQL);
        }
        ADOQuery1->Open();
        ADOQuery1->First();
        for(int i=1; i<=ADOQuery1->Fields->Count; ++i)
        {
            string->Add(ADOQuery1->Fields->FieldByNumber(i)->FieldName);
        }
        answer->Add(string->DelimitedText);
        string->Clear();
        while(!ADOQuery1->Eof)
        {
            for(int i=1; i<=ADOQuery1->Fields->Count; ++i)
            {
                string->Add(ADOQuery1->Fields->FieldByNumber(i)->AsString);
            }
            answer->Add(string->DelimitedText);
            string->Clear();
            ADOQuery1->Next();
        }

        if(ans=="find_project")
    {
         
        StringGrid1->RowCount = answer->Count-1;   
        string->DelimitedText = (*answer)[1];
        StringGrid1->ColCount = string->Count;   
        for(int i=1; i < answer->Count; ++i)
        {
                string->DelimitedText = (*answer)[i];
                for(int k=0; k < string->Count; ++k)
                {
                StringGrid1->Cells[k][i-1] = (*string)[k];
            }
        }
    }

void __fastcall TForm2::Button1Click(TObject *Sender)
{
  AnsiString find;
  find="";
  if (RadioButton1->Checked==true){
   find=find+Edit1->Text+";";
  find=find+Edit2->Text+";";
   Form1->ClientSocket1->Socket->SendText("find_project"+find);   
  }