Ошибка динамической памяти при компиляции

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n=3;
int m=4;
void Poisk(int**,int,int,int*,int*);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int i;
if(Edit1->Text == "")
        Edit1->Text = "3";
n=StrToInt(Edit1->Text);
 
        StringGrid1->ColCount = m+1;
    StringGrid1->RowCount = n+1;
 
                for(i=1; i<=n;i++){
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
            }
                for(int i=1; i<=n;i++)
                for(int j=1; j<=n;j++)
                       StringGrid1->Cells[j][i]= random(21)-10;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
int i;
if(Edit2->Text == "")
        Edit2->Text = "4";
m=StrToInt(Edit2->Text);
 
        StringGrid1->ColCount = m+1;
    StringGrid1->RowCount = n+1;
 
                for(i=1; i<=m;i++){
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
            }
                for(int i=1; i<=m;i++)
                for(int j=1; j<=m;j++)
                       StringGrid1->Cells[j][i]= random(21)-10;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text=IntToStr(n);
Edit2->Text=IntToStr(m);
 
        StringGrid1->ColCount = m+1;
        StringGrid1->RowCount = n+1;
        StringGrid1->Cells[0][0] = "Ìàòðèöà";
 
                for(int i=1; i<=n;i++){
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
                }
        for(int i=1; i<=n;i++)
                for(int j=1; j<=n;j++)
                       StringGrid1->Cells[j][i]= random(21)-10;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int **a;                    // Äåêëàðàöèÿ óêàçàòåëåé
        int i, j, sum, kol;
        a = new int*[n];
        for(i=0; i<n;i++)
        a[i] = new int[n];
 
        for(i=0; i<n;i++)
        for(j=0; j<m;j++)
        
        a[i][j]=StrToInt(StringGrid1->Cells[j+1][i+1]);
 
        Poisk (a,n,m,&sum,&kol);
 
Memo1->Lines->Add(IntToStr(sum));
Memo1->Lines->Add(IntToStr(kol));
 
for(i=0; i<n; i++)
delete []a[i]; 
delete []a;
 
}
//---------------------------------------------------------------------------
void Poisk(int**a,int n,int m,int*sum,int*kol)
{
 
int i,j;
 
*sum=0;
*kol=0;
 
for(i=0; i<n; i++)
for(j=0; j<m; j++)
 
if (a[i][j]<0)
{
*sum+=a[i][j];
}
 
for(i=0; i<n; i++)
for(j=0; j<m; j++)
 
if (a[i][j]>0)
{
*kol=a[i][j];
*kol++;
}
}