StringGrid - в Memo вывести всех хорошистов

        int i,j;
        int chel=0,total=0;
        float kach_zn;
        bool t;
 
        do
        {
         t=true;
         for (i=1; i<StringGrid1->RowCount; i++)
         {
         for (j=3; j<StringGrid1->ColCount; j++)
         {
            if (StringGrid1->Cells[j][i]<=3 )
                {
                t=false;
                //i++;
                }
                else if  (StringGrid1->Cells[j][i]>3)
                {
                t=true;
                chel++;
                }
 
             total=total+1;
             break;
             }
 
             }
         }
 
 
        while(StringGrid1->Cells[j][i] != "");
 
        kach_zn=(chel*100)/total;
        Memo2->Lines->Add("Количество студентов, учащихся на 4 и 5 - " + IntToStr(chel)+" чел.");
        Memo2->Lines->Add("Качество знаний по группе = "+FloatToStr(kach_zn)+"%");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int chel = 0, total = 0;
  double kach_zn;
  for(int i = 1; i < StringGrid1->RowCount; i++)
   {
     if(StringGrid1->Cells[0][i].Trim().Length() == 0) break;
     int temp = 0;
     for(int j = 0; j < StringGrid1->ColCount; j++)
      if(StrToIntDef(StringGrid1->Cells[j][i],1) < 4) continue;
      else temp++;
     if(temp == 9) chel++;
     total++;
   }
  kach_zn = double((chel * 100)) / total;
  Label1->Caption = String().sprintf("Количество студентов, учащихся на 4 и 5 - %d чел.", chel);
  Label2->Caption = String().sprintf("Качество знаний по группе =  %8.2f\%", kach_zn);
}