Создать массив переменной емкости, который был бы доступен из всей формы, а не только в одной функции

int TreeList[6]  //<- это определенно в .h файле формы.
 
//далее заполняю массив в методе.
   TreeList[0] = 319;
   TreeList[1] = 320;
   TreeList[2] = 321;
   TreeList[3] = 945;
   TreeList[4] = 946;
   TreeList[5] = 947;

int TreeList[] = { 319, 320, 321, 945, 946, 947,... и т.д};

int num; // размер массива
int *TreeList = new int[num]; // Выделение памяти для массива

public:     // User declarations
int *TreeList;

int *TreeList = new int[6];
// типа заполняем массив в ручном цикле
   TreeList[0] = 319;
   TreeList[1] = 320;
   TreeList[2] = 321;
   TreeList[3] = 945;
   TreeList[4] = 946;
   TreeList[5] = 947;

int *TreeList = new int[6];

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int sz = Edit1->Text.ToInt();  //в Edit1 записано число 7
    int *TreeList = new int[sz];
 
    TreeList[0] = 319;
    TreeList[1] = 320;
    TreeList[2] = 321;
    TreeList[3] = 945;
    TreeList[4] = 946;
    TreeList[5] = 947;
    TreeList[6] = 123;
 
    int ID = TreeList[5];
    ShowMessage(ID);
    ShowMessage(TreeList[2]);
 
 
    delete []TreeList;
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    int *TreeList;
};

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TreeList = new int[7];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TreeList[0] = 319;
    TreeList[1] = 320;
    TreeList[2] = 321;
    TreeList[3] = 945;
    TreeList[4] = 946;
    TreeList[5] = 947;
    TreeList[6] = 123;  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int ID = TreeList[5];
    ShowMessage(ID);
    ShowMessage(TreeList[2]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete []TreeList;
}

_fastcall TfrmEnv::TfrmEnv(TComponent* Owner)
        : TForm(Owner)
{
   int *TreeList = new int[6];
 
   TreeList[0] = 319;
   TreeList[1] = 320;
   TreeList[2] = 321;
   TreeList[3] = 945;
   TreeList[4] = 946;
   TreeList[5] = 947;
   TreeListCount = (sizeof(TreeList)/sizeof(int));
 
   int ID = TreeList[0]; // тут без проблем получаем значение
}
 
void TfrmEnv::Get()
{
   int ID = TreeList[0]; //тут нам выскакивает ошибка, и показывает что TreeList = NULL
}

TreeList = new int[7];

int *TreeList = new int[7];

   TreeList = new CRandomObj[count];
 
   for (int i=0; i < count; i++)
   {
         String value = iniFile->ReadString(PresetObj->Items[i].Text, "PidList", "")
         TreeList [i] = (new CRandomObj(value));
   }

CRandomObj::CRandomObj(String pidLine)
{
       TStringList *list = new TStringList();
    list->DelimitedText = Trim(pidLine);
    list->Delimiter = ',';
    this->count = list->Count;
 
    int *objPid = new int[count];
 
    for (int n = 0; n < count; n++)
    {
       objPid[n] = StrToInt(list->Strings[n]);
    }
 
    delete list;
}