Найти одного или нескольких двоичников вывести в StringGrid, если таковых нет то вывести сообщение

#include <memory>
 #include <iostream>
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int nStud = 0;
const int r = 4; //Кол-во элементов массива
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  StringGrid1->Cells[0][0] = "Физика";
  StringGrid1->Cells[1][0] = "Химия";
  StringGrid1->Cells[2][0] = "Информатика";
  StringGrid1->Cells[3][0] = "Алгебра";
  StringGrid1->Cells[4][0] = "Мат.анализ";
  StringGrid2->Cells[0][0] = "ФИО Студента";
  StringGrid2->Cells[1][0] = "Группа";
  StringGrid2->Cells[2][0] = "Средний балл";
        StringGrid2->Cells[3][0] = "Физика";
        StringGrid2->Cells[4][0] = "Химия";
        StringGrid2->Cells[5][0] = "Информатика";
        StringGrid2->Cells[6][0] = "Алгебра";
        StringGrid2->Cells[7][0] = "Мат.анализ";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(!Check())
   {
     ShowMessage("Не все данные введены.");
     return;
   }
  int b = 0;
  Stud[nStud].FIO = Edit1->Text;
  Edit1->Text = "";
  Stud[nStud].Group = Edit2->Text;
  Edit2->Text = "";
 
                for(int i = 0; i < 5; i++)
   {
     Stud[nStud].Balls[i] = StrToInt(StringGrid1->Cells[i][1]);
     StringGrid1->Cells[i][1] = "";
                b += Stud[nStud].Balls[i];
 
   }
  Stud[nStud].sBall = (int)(b/5.0 + 0.5);
  nStud++;
  StringGrid2->Cells[0][nStud] = Stud[nStud-1].FIO;
  StringGrid2->Cells[1][nStud] = Stud[nStud-1].Group;
  StringGrid2->Cells[2][nStud] = Stud[nStud-1].sBall;
 
  StringGrid2->Cells[3][nStud] = Stud[nStud-1].Balls[0];
  StringGrid2->Cells[4][nStud] = Stud[nStud-1].Balls[1];
  StringGrid2->Cells[5][nStud] = Stud[nStud-1].Balls[2];
  StringGrid2->Cells[6][nStud] = Stud[nStud-1].Balls[3];
  StringGrid2->Cells[7][nStud] = Stud[nStud-1].Balls[4];
 
  Button1->Caption = "Добавлено " + IntToStr(nStud) + " записей.";
  if(nStud >= r)
   {
     for(int i = 1; i <= 10; i++)
      for(int j = 0; j < 3; j++)
       StringGrid1->Cells[j][i] = "";
     TStudents tmp;
     for(int i=0, j=0; i < r; i++)
      {
        tmp.FIO = Stud[i].FIO;
        tmp.Group = Stud[i].Group;
        tmp.sBall = Stud[i].sBall;
        j = i - 1;
        while((j >= 0) && (Stud[j].sBall > tmp.sBall))
         {
           Stud[j+1] = Stud[j];
           j = j - 1;
         }
        Stud[j+1].FIO = tmp.FIO;
        Stud[j+1].Group = tmp.Group;
        Stud[j+1].sBall = tmp.sBall;
      }
     for(int i = 0; i < r; i++)
      {
        StringGrid2->Cells[0][i + 1] = Stud[i].FIO;
        StringGrid2->Cells[1][i + 1] = Stud[i].Group;
        StringGrid2->Cells[2][i + 1] = Stud[i].sBall;
      }
     GroupBox1->Enabled = false;
     Button2->Enabled = true;
         Button4->Enabled = true;
   }
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::Check()
{
  if(Edit1->Text.Trim().IsEmpty() || Edit2->Text.Trim().IsEmpty()) return false;
  for(int i = 0; i < 5; i++)
   if(StringGrid1->Cells[i][1].Trim().IsEmpty()) return false;
  return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int iRow = 2;
  for(int i = 0; i <= r; i++)
   if((Stud[i].Balls[i] >= 2))
 
    {
      StringGrid3->Cells[0][iRow-1] = Stud[i].FIO;
      StringGrid3->Cells[1][iRow-1] = Stud[i].Group;
      StringGrid3->Cells[2][iRow-1] = Stud[i].sBall;
 
  StringGrid3->Cells[3][iRow-1] = Stud[i].Balls[0];
  StringGrid3->Cells[4][iRow-1] = Stud[i].Balls[1];
  StringGrid3->Cells[5][iRow-1] = Stud[i].Balls[2];
  StringGrid3->Cells[6][iRow-1] = Stud[i].Balls[3];
  StringGrid3->Cells[7][iRow-1] = Stud[i].Balls[4];
      iRow++;
      StringGrid3->RowCount = iRow;
    }
    else((Stud[i].Balls[i] <= 2));
        {
     ShowMessage("Нет двоечников.");
     return;
         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
 {  // Сохранить
std::auto_ptr<TStringList> SL(new TStringList);
 
for(int i=0;i<StringGrid2->RowCount;i++)
 {
  StringGrid2->Rows[i]->Delimiter=L';'; // Разделитель
  SL->Add(StringGrid2->Rows[i]->DelimitedText);
 }
SL->SaveToFile("общий список.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
{  // Сохранить
std::auto_ptr<TStringList> SL(new TStringList);
 
for(int i=0;i<StringGrid3->RowCount;i++)
 {
  StringGrid3->Rows[i]->Delimiter=L';'; // Разделитель
  SL->Add(StringGrid3->Rows[i]->DelimitedText);
 }
SL->SaveToFile("список двоечников.txt");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
{ // Загрузить
std::auto_ptr<TStringList> SL(new TStringList);
 
SL->LoadFromFile("общий список.txt");
 
for(int i=0;i<SL->Count;i++)
 {
  StringGrid2->Rows[i]->Delimiter=L';';
  StringGrid2->Rows[i]->DelimitedText= SL->Strings[i];
 }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
{// Очистить
for(int i=0;i<StringGrid2->RowCount;i++)
 {
  StringGrid2->Rows[i]->Clear();
 }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
{// Очистить
for(int i=0;i<StringGrid3->RowCount;i++)
 {
  StringGrid3->Rows[i]->Clear();
 }
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Close();
}