При освобождении памяти под двумерный динамический массив way выскакивает EAcessViolation

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int num,way_count,p,k;
float *vloz=new float[num];
int **way=new int*[way_count];
float **a=new float*[num];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text!="")
 {
   num=StrToFloat(Edit1->Text);
 
 for(int i=0;i<num;++i)
      a[i]=new float[num];
 }
}
//--------------------------------------------------------------------------
int fact (int N)
{
    if(N < 0) // если пользователь ввел отрицательное число
        return 0; // возвращаем ноль
    if (N == 0) // если пользователь ввел ноль,
        return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =)
    else // Во всех остальных случаях
        return N*fact(N-1); // делаем рекурсию.
}
//---------------------------------------------------------------------------
 
void DFS (int v)
{
 for(int i=0;i<num;++i)
 {
  int flag=0;
  if (v!=i)
   {
    if (a[v][i]!=0)
     {
      if (vloz[0]==0)
       {
        vloz[0]=v+1;
       }
      for(int j=0;j<num;++j)
        if (vloz[j]==i+1)
          flag=1;
      if (flag==0)
       {
        ++k;
        vloz[k]=i+1;
        for(int z=0;z<=k;++z)
         way[p][z]=vloz[z];
        ++p;
        DFS (i);
 
        vloz[k]=0;
        if (k!=0)
           k=k-1;
       }
    }
   }
 }
 
}
 
//-------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  way_count=10;
 
  StringGrid2->RowCount=way_count;
  StringGrid2->ColCount=num;
 
  for(int i=0;i<way_count;++i)
      way[i]=new int[num];
 
  for(int i=0;i<way_count;++i)
  {
    for(int j=0;j<num;++j)
        {
         way[i][j]=0;
         StringGrid2->Cells[j][i]=IntToStr(way[i][j]);
        }
  }
 
 // далее выполняется функция  DFS
 
 for (int count = 0; count < way_count; count++)
        delete[] way[count];
 delete[] way;           // ЭТО МЕСТО ПОЯВЛЕНИЯ ОШИБКИ  AEcessViollation ....
 
 
}

int num,way_count,p,k;
float *vloz=new float[num];
int **way=new int*[way_count]; // Чему здесь way_count равен? 
float **a=new float*[num];

int **way = new int*[way_count];
way_count=10;
for(int i=0;i<way_count;++i) way[i]=new int[num];

int way_count;
int **way;
 
// ...
    way_count = way_count = Edit1->Text.ToIntDef(10); // получаешь от пользователя размер
    way = new int*[way_count]; // _после_ того, как получил размер - работаешь с массивом
    for (int i = 0; i < way_count; ++i)
        way[i] = new int[num];
 
    // ...
 
    for (int count = 0; count < way_count; count++)
        delete [] way[count];
    delete [] way;