Использование StringGrid для создания матрицы

StringGrid1->Options << goEditing;

int A;
A=StrToInt(Edit1->Text);
StringGrid1->RowCount=A;
StringGrid1->ColCount=A;
for (int i=0; i < A; i++) {
StringGrid1->Cells[i][i]=0;
StringGrid1->Cells[i][(A-1)-i]=0;

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
if (StringGrid1->Cells[ACol][ARow]==0) CanSelect = false;
}

int strgrid_mask[20][20] = {{1}}; // размер массива должен соответствовать размерам стринггрида
// дальше забиваем в этом массиве нулями диагонали или еще чего там надо...
// а в обработчике уже смотрим на эту маску:
void __fastcall TForm1::StringGrid1SelectCell( TObject *Sender, int ACol, int ARow, bool &CanSelect ) {
   if ( ! strgrid_mask[ACol][ARow] ) CanSelect = false;
}

if (StringGrid1->Objects[ACol][ARow]==NULL) CanSelect = false;

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TLabel *ваа;
    TStringGrid *StringGrid1;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall StringGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect);
 
private:    // User declarations
public:     // User declarations
     int **strgrid_mask;
    __fastcall TForm1(TComponent* Owner);
};

__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    strgrid_mask = NULL;
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click( TObject *Sender ) {
    static int size; // статик позволит нам знать последнее значение размера
    size_t i, j;
    if ( strgrid_mask ) { // освобождаем память, если уже была выделена до этого
        for ( i = 0; i < size; delete[]strgrid_mask[i++] );
        delete[]strgrid_mask;
    }
    for ( i = 0; i < StringGrid1->RowCount; StringGrid1->Rows[i++]->Clear( ) ); // очищаем стринггрид
 
    size = StrToInt( Edit1->Text );
    StringGrid1->RowCount = size;
    StringGrid1->ColCount = size;
    for ( strgrid_mask = new int *[size], i = 0; i < size; i++ ) { // динамически выделяем память под массив маски
        for ( strgrid_mask[i] = new int[size], j = 0; j < size; strgrid_mask[i][j++] = 1 );
    }
    for ( i = 0; i < size; i++ ) {
        StringGrid1->Cells[i][i] = strgrid_mask[i][i] = 0;
        StringGrid1->Cells[i][size - 1 - i] = strgrid_mask[i][size - 1 - i] = 0;
    }
    for ( i = 0; i < size; i++ ) // ставим фокус на первой попавшейся допустимой ячейке
        for ( j = 0; j < size; j++ ) {
            if ( strgrid_mask[i][j] ) {
                StringGrid1->Row = i;
                StringGrid1->Col = j;
                i = j = size;
            }
        }
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1SelectCell( TObject *Sender, int ACol, int ARow, bool &CanSelect ) {
    if ( !strgrid_mask[ACol][ARow] ) {
        CanSelect = false;
    }
}