Освободить память от двумерного динамического массива

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include<stdio.h>
#include<string.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
FILE *File_In;
int N=0;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if (OpenTextFileDialog1->Execute()) {
   AnsiString path=OpenTextFileDialog1->FileName;
   Label1->Caption=path;
           if ((File_In = fopen(path.c_str(),"r")) == NULL)
           {
           perror("Файл не существует");
           exit(0);
           }
 
   N=10;
   Memo1->Lines->LoadFromFile(path);
 
   int **ARRAY1=new int*[N]; //  Динамический двумерный массив создали
         for(int i=0; i<N; i++)  //       размером NxN
         {ARRAY1[i]=new int[N]; // ?
          }
 
         for(int i=0; i<N; i++)      //  заполняем случайными числами
             {for(int j=0; j<N; j++)
                {
                ARRAY1[i][j]=rand()%200;
                }
             }
 }
 
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
fclose(File_In);
for(int i=0; i<N; i++)          // очищаем массив
   delete [] ARRAY1[i];
delete []ARRAY1;
 
}
//---------------------------------------------------------------------------

int **ARRAY1;