Для каждого столбца массива определить сумму двух элементов

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1_4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
float rezult;
float st_sv = 0;
float col_sv = 5;
float   s = 0 ;
 
 // проверка не пустые поля матрицы
 if ( SG1->Cells[0][0] == "" || SG1->Cells[1][1] == "" ||
      SG1->Cells[2][2] == "" || SG1->Cells[3][3] == "" ||
      SG1->Cells[4][4] == "" || SG1->Cells[5][5] == "" ||
      SG1->Cells[5][0] == "" || SG1->Cells[4][1] == "" ||
      SG1->Cells[3][2] == "" || SG1->Cells[2][3] == "" ||
      SG1->Cells[1][4] == "" || SG1->Cells[0][5] == "" ||
      SG1->Cells[1][0] == "" || SG1->Cells[2][0] == "" ||
      SG1->Cells[3][0] == "" || SG1->Cells[4][0] == "" ||
      SG1->Cells[0][1] == "" || SG1->Cells[2][1] == "" ||
      SG1->Cells[3][1] == "" || SG1->Cells[5][1] == "" ||
      SG1->Cells[0][2] == "" || SG1->Cells[1][2] == "" ||
      SG1->Cells[4][2] == "" || SG1->Cells[5][2] == "" ||
      SG1->Cells[0][3] == "" || SG1->Cells[1][3] == "" ||
      SG1->Cells[4][3] == "" || SG1->Cells[5][3] == "" ||
      SG1->Cells[0][4] == "" || SG1->Cells[2][4] == "" ||
      SG1->Cells[3][4] == "" || SG1->Cells[5][4] == "" ||
      SG1->Cells[1][5] == "" || SG1->Cells[2][5] == "" ||
      SG1->Cells[3][5] == "" || SG1->Cells[4][5] == "" )
 {
     ShowMessage("Заполните все поля матрицы!!");
     Form1->Close();
 }   else {
 
 
      for (float col_gl = 0  ; col_gl <= 5; col_gl++ ) {
 for ( float st_gl = 0 ; st_gl <= 5; st_gl++  )
 
 
 rezult  = StrToFloat(SG1->Cells[col_gl][st_gl]) + StrToFloat(SG1->Cells[col_sv][st_sv]);
  ++st_sv;
  --col_sv;
 SG2->Cells[0][s] = FloatToStr(rezult);
 ++s ;
  }
}
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}

 // проверка не пустые поля матрицы
 for (int col=0; col < SG1->ColCount; col++)
  for (int row=0; row < SG1->RowCount; row++)
   if (SG1->Cells[col][row].IsEmpty())
    {
     ShowMessage("Заполните все поля матрицы!!");
     return;
    }
 
 for (int col=0,row=SG1->RowCount-1; col<SG1->ColCount; col++,row--)
  SG2->Cells[0][col] = FloatToStr(StrToFloat(SG1->Cells[col][col]) + StrToFloat(SG1->Cells[col][row]));

for (int col=0,row=SG1->RowCount-1; col<SG1->ColCount; col++,row--)