Выделите строки в компоненте StringGrid, которые начинаются с гласной буквы, а также подсчитайте количество других

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int g=0; int i,j; String s;
        for (int i=0;i<StringGrid1->RowCount;i++)
        for (int j=0;j<StringGrid1->ColCount;j++) {
                s=StringGrid1->Cells[i][j];
                if (s[1]=="а") {    //я не знаю что писать в проверке(
                        g++;
                }
        }
Button1->Caption=IntToStr(g);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        StringGrid1->Cells[1][1]="аб";
        StringGrid1->Cells[1][3]="бв";
        StringGrid1->Cells[3][1]="ос";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int g=0;
String s = "аеиоуыэюя";
        for (int i=1;i<StringGrid1->RowCount+1;i++)
        {
         for (int j=1;j<StringGrid1->ColCount+1;j++)
         {
           for(int t = 1; t < s.Length()+1; t++)
            {
              if(!StringGrid1->Cells[i][j].IsEmpty())
              {
                if(StringGrid1->Cells[i][j][1] == s[t])
               {
                  g++;
               }
              }
            }
          }
        }
Button1->Caption=IntToStr(g);
}