StringGrid анализ, выборка и подсчет данных

#include <vcl.h>
#pragma hdrstop
 
#include "Select.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
        StringGrid1->Cells[1][0] = "ФИО";
        StringGrid1->Cells[2][0] = "Оценка";
    StringGrid1->Options << goEditing;
 
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    int count_of_five = 0;
        int count_of_four = 0;
        int count_two = 0;
        int count_of_three = 0;
        int total_count = 0;
 
        float sred_bal = 0;
        int i = 1;
        String value;
 
        do
        {
 
            value = StringGrid1->Cells[2][i];
                if (value == "5")
                {
                    count_of_five = count_of_five + 1;
                        sred_bal = sred_bal + StrToInt(value);
                }
                else if (value == "4")
                {
                    count_of_four = count_of_four + 1;
                    sred_bal = sred_bal + StrToInt(value);
                }
                else if (value == "3")
                {
                    count_of_three = count_of_three + 1;
                    sred_bal = sred_bal + StrToInt(value);
                }
                else if (value == "2")
                {
                    count_two = count_two + 1;
                    sred_bal = sred_bal + StrToInt(value);
                }
                i = i + 1;
 
                total_count = total_count + 1;
 
        } while(StringGrid1->Cells[2][i] != "");
 
        sred_bal = sred_bal / total_count;
 
        Memo1->Lines->Add("-количество сдавших экзамены на 5: " + IntToStr(count_of_five));
        Memo1->Lines->Add("-количество сдавших экзамены на 4: " + IntToStr(count_of_four));
        Memo1->Lines->Add("-количество сдавших экзамены на 3: " + IntToStr(count_of_three));
        Memo1->Lines->Add("-количество сдавших экзамены на 2: " + IntToStr(count_two));
        Memo1->Lines->Add("Общее количество: " + IntToStr(total_count));
        Memo1->Lines->Add("Средний балл по группе: " + FloatToStr(sred_bal));
 
}
//---------------------------------------------------------------------------