Ошибка при выполнении (invalid pointer operation)

 void __fastcall TForm1::Button17Click(TObject *Sender)
{
  for(int i=1;i<=16;i++)
  {Button[i]->Free();} //удаляю массив кнопок, он был создан ранее
 
 int P, g, p, c;
 
 int *a= new int[16]; 
 g=0; p=0; P=0; c=0;
    for(int i=0;i<=3;i++)
    {
      for(int j=0;j<=3;j++)
      {P=P+1;                       //номер кнопки и номер численного массива
      d: g=rand()%4;         
         p=rand()%4;
         c=p*10+g;             //числа, чтобы рандомно располагались кнопки на форме, в число с нужно для сравнения
         a[P]=c;
        if(P>=2)
         {
          for(int w=1;w<=P-1;w++) //сравнение новой позиции с предыдущими
          {
                if(a[P]==a[w]) 
                {
                goto d;
                }
          }
         }
         Edit1->Text=Edit1->Text+" "+c;   //создание самой кнопки
       Button[P]= new TButton(this);
       Button[P]->Name = "Button"+(String)(P);
       Button[P]->Caption = (String)(P);
       Button[P]->Width = 48;
       Button[P]->Height = 48;
       Button[P]->Top = p*48;
       Button[P]->Left = g*48;
       Button[P]->Parent = this;
       Button[P]->OnClick = Button1Click;
       if(Button[P]->Name == "Button"+(String)(16))
         {Button[P]->Caption ="";
          Button[P]->OnClick=Button2Click;
          Button18=Button[P];}
 
    }
   }
   delete []a;
  //a=NULL;
 
}