Использование new по отношению к компонентам формы

void KosmMapOp(void)
{TImage *Image=new TImage(Form1);
Image->Parent=Form1;
Image->Picture->LoadFromFile("Images\\Карта космодрома.bmp");
Image->Stretch=true;
Image->Left=176;
Image->Top=56;
Image->Height=452;
Image->Width=633;
Buttvis();
Form1->Memo1->Visible=0;
Form1->Memo2->Visible=0;
TSpeedButton *SButton=new TSpeedButton(Form1);
SButton->Parent=Form1;
SButton->Left=784;
SButton->Top=56;
SButton->Height=25;
SButton->Width=25;
SButton->Glyph->LoadFromFile("Images\\buttonclose.bmp");
 
}
//...
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::SButtonClick(TObject *Sender)
{Form1->Memo1->Visible=1;
}

// ---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
    // ...
 
private: // User declarations
    TObjectList *ObjList; // <--- Вот тут
    // ...
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
    // ...
};

//---------------------------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool topinbat=0,batbal=0,popadenie=0, suf=0,map=0;
int q,p=10,type,six=random(6),battop,dist,Health,srok;
int slide=0,Visible,slide1,button;
bool butvmem[7],buttmem[7];
AnsiString Beg;
AnsiString T1;
ifstream infile("Слайды.txt");
//FILE* F;
char t[1000];
//------------------------------------------------------------------------------
struct WeaponN
{AnsiString name;
int damage;
int baseaccuracy;
int weight;
}wpn[20];
struct WeaponF
{AnsiString name;
int damagemin;
int razbros;
int accuracy;
int weight;
}wpf[20];
struct Ability
{int a;
AnsiString Abt;
}st[5];
struct Objects
{AnsiString Name;
char bns;
int Bns;
}ob[20];
struct Characters     //---------------------------------
{int bronia;
AnsiString Name;
int mon;
int health;
struct Ability
{int a;
AnsiString Abt;
}st[5];
struct WeaponN
{AnsiString name;
int damage;
int baseaccuracy;
int weight;
bool is;
}wpn[1];
struct WeaponF
{AnsiString name;
int damagemin;
int razbros;
int accuracy;
int weight;
bool is;
}wpf[1];
struct Objects
{AnsiString Name;
AnsiString bns;
bool is;
int Bns;
}ob[1];
}ch[20];
//------------------------------------------------------------------------------
struct You
{AnsiString Name;
int health;
int mon;
int weightable;
int regen;
struct Ability
{int a;
AnsiString Abt;
}st[5];
struct Bron
{AnsiString Name;
int bronia;
}br[1];
struct WeaponN
{AnsiString name;
int damage;
int baseaccuracy;
int weight;
bool is;
}wpn[1];
struct WeaponF
{AnsiString name;
int damagemin;
int razbros;
int accuracy;
int weight;
bool is;
}wpf[1];
struct Objects
{AnsiString Name;
AnsiString bns;
int Bns;
bool is;
}ob[20];
}y[1];
//------------------------------------------------------------------------------
void Download(void)
{
infile.getline(t,sizeof(t));
Form1->Memo1->Lines->Add(AnsiString(t));
 
}
//void Download(void)
//{AnsiString T;
//do{fscanf(F,"%s",&t);
//if ((t[0]=='_') && (t[1]=='|') && (t[2]=='_')) break;
//else{T+=t;T+=' ';};
//}while(!feof(F));
//Form1->Memo1->Lines->Add(T);
//}
void ShowAll(void)
{Form1->Memo2->Clear();
for(int i=0;i<5;i++)
Form1->Memo2->Lines->Add(y[0].st[i].Abt+" "+IntToStr(y[0].st[i].a));
y[0].regen=y[0].st[3].a;
y[0].weightable=y[0].st[0].a*5000;
Form1->Memo2->Lines->Add("Здоровье "+IntToStr(y[0].health));
Form1->Memo2->Lines->Add("Деньги "+IntToStr(y[0].mon));
Form1->Memo2->Lines->Add("Вы можете унести максимум "+IntToStr(y[0].weightable)+" грамм");
int yweight=0;
if (y[0].wpn[0].is==1)
{Form1->Memo2->Lines->Add("Ближний бой - "+y[0].wpn[0].name);yweight+=y[0].wpn[0].weight;};
if (y[0].wpf[0].is==1)
{Form1->Memo2->Lines->Add("Дальний бой - "+y[0].wpf[0].name);yweight+=y[0].wpf[0].weight;};
if (yweight!=0) Form1->Memo2->Lines->Add("Свободное место - "+IntToStr(y[0].weightable-yweight));
if (y[0].ob[0].is==1)
{Form1->Memo2->Lines->Add("У вас есть "+y[0].ob[0].Name);
for(int i=1;i<20;i++)
{if (y[0].ob[i].is==1) Form1->Memo2->Lines->Add(y[0].ob[i].Name);
else break;};
}if (slide==100) {Form1->Memo2->Lines->Add("Здoровье прoтивника = "+IntToStr(ch[battop].health));
Form1->Memo2->Lines->Add("Дистанция до противника = "+IntToStr(dist));};
}
void Buttvis(bool a=0,bool b=0,bool c=0,bool d=0,bool e=0,bool f=0,bool g=0,bool z=0)
{if (z!=0) {butvmem[0]=a;butvmem[1]=b;butvmem[2]=c;butvmem[3]=d;butvmem[4]=e;butvmem[5]=f;butvmem[6]=g;};
Form1->Button1->Visible=a;
Form1->Button2->Visible=b;
Form1->Button3->Visible=c;
Form1->Button4->Visible=d;
Form1->Button5->Visible=e;
Form1->Button6->Visible=f;
Form1->Button7->Visible=g;
if (a==1) Form1->Button1->Enabled=0;
if (b==1) Form1->Button2->Enabled=0;
if (c==1) Form1->Button3->Enabled=0;
if (d==1) Form1->Button4->Enabled=0;
if (e==1) Form1->Button5->Enabled=0;
if (f==1) Form1->Button6->Enabled=0;
if (g==1) Form1->Button7->Enabled=0;
}
void Buttrue(bool a,bool b=0,bool c=0,bool d=0,bool e=0,bool f=0,bool g=0,bool z=0)
{if (a==1) Form1->Button1->Enabled=a;
if (b==1) Form1->Button2->Enabled=b;
if (c==1) Form1->Button3->Enabled=c;
if (d==1) Form1->Button4->Enabled=d;
if (e==1) Form1->Button5->Enabled=e;
if (f==1) Form1->Button6->Enabled=f;
if (g==1) Form1->Button7->Enabled=g;
if (z!=0) {buttmem[0]=a;buttmem[1]=b;buttmem[2]=c;buttmem[3]=d;buttmem[4]=e;buttmem[5]=f;buttmem[6]=g;};
}
 
void chosestate(void)//слайд1
{int sum=0;
Form1->Memo1->Clear();
slide=1;
Buttvis(1,1,1,1,1,1,1);
if (p>0)
{Buttrue(1,1,1,1,1);
}for(int i=0;i<5;i++)
sum+=y[0].st[i].a;
if (sum>2) Buttrue(0,0,0,0,0,1);
if (p==0) Buttrue(0,0,0,0,0,0,1);
Form1->Button1->Caption="Увеличить силу";
Form1->Button2->Caption="Увеличить ловкость";
Form1->Button3->Caption="Увеличить интеллект";
Form1->Button4->Caption="Увеличить выносливость";
Form1->Button5->Caption="Увеличить харизму";
Form1->Button6->Caption="Уменьшить характеристики";
Form1->Button7->Caption="Готово";
Form1->Memo1->Lines->Add("У вас "+IntToStr(p)+" нераспределённых очков характеристик. Распределите их по вашему желанию между силой, ловкостью, интеллектом и выносливостью.");
Form1->Memo2->Clear();
for(int i=0;i<5;i++)
{Form1->Memo2->Lines->Add(y[0].st[i].Abt+" "+y[0].st[i].a);};
};
//---------------------------------------------------------------------------
int incf(int q)//слайд2
{slide=2;
AnsiString a;
a=y[0].st[q].Abt;
if (q==0) {a="Силу";};
if (q==4) {a="{Харизму";};
Buttvis(1,1,1);
if (p>=1) Buttrue(1);
if (p>=2) Buttrue(0,1);
if (p>=3) Buttrue(0,0,1);
Form1->Memo1->Clear();
Form1->Button1->Caption="Увеличить на 1";
Form1->Button2->Caption="Увеличить на 2";
Form1->Button3->Caption="Увеличить на 3";
Form1->Memo1->Lines->Add("На сколько очков увеличить "+a+"?");
return q;}
 
}
void __fastcall TForm1::KosmMapOp(void)
{
TImage *Image=new TImage(Form1);
 
TSpeedButton *SButton=new TSpeedButton(Form1);
 
Image->Parent=Form1;
Image->Picture->LoadFromFile("Images\\Карта космодрома.bmp");
Image->Stretch=true;
Image->Left=176;
Image->Top=56;
Image->Height=452;
Image->Width=633;
Buttvis();
Form1->Memo1->Visible=0;
Form1->Memo2->Visible=0;
SButton->Parent=Form1;
SButton->Left=784;
SButton->Top=56;
SButton->Height=25;
SButton->Width=25;
SButton->Glyph->LoadFromFile("Images\\buttonclose.bmp");
SButton->OnClick = Form1->SButtonClick;
ObjList->Add(SButton);
ObjList->Add(Image);
 
}
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::SButtonClick(TObject *Sender)
{
Form1->Memo1->Visible=1;
Form1->Memo2->Visible=1;
Form1->Button1->Visible=butvmem[0];
Form1->Button2->Visible=butvmem[1];
Form1->Button3->Visible=butvmem[2];
Form1->Button4->Visible=butvmem[3];
Form1->Button5->Visible=butvmem[4];
Form1->Button6->Visible=butvmem[5];
Form1->Button7->Visible=butvmem[6];
Form1->Button1->Enabled=buttmem[0];
Form1->Button2->Enabled=buttmem[1];
Form1->Button3->Enabled=buttmem[2];
Form1->Button4->Enabled=buttmem[3];
Form1->Button5->Enabled=buttmem[4];
Form1->Button6->Enabled=buttmem[5];
Form1->Button7->Enabled=buttmem[6];
delete ObjList;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{switch (slide)
{case 0:{chosestate(); break;};
case 1:{type=incf(0);break;};
case -1:{type=degf(0);break;};
case -2:{if(y[0].st[type].a>=1){y[0].st[type].a-=1;p+=1;choosestate();}else {choosestate();}break;};
case 2:{if(p>=1){y[0].st[type].a+=1;p-=1;chosestate();}else {chosestate();}break;};
case 3:{Stepo1();break;};
case 4:{Battle1();break;};
case 5:{Battle1();break;};
case 100:{Battlewow();if (ch[battop].health>0) {Battle1();Battleopp();ShowAll();} else Victory(); break;};
case 101:{y[0].mon+=ch[battop].mon;ch[battop].mon=0;Victory();break;};
case 102:{Afterbat();break;};
case 6:{Stept();break;};
}Death();Regen();
button=1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{switch (slide)
{case 1:{type=incf(3);break;};
case -1:{type=degf(3);break;};
case 100:{Battle1();Avoid();ShowAll();break;};
case 101:{Assignob();Victory();break;};
}Death();Regen();
button=4;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{switch (slide)
{case 1:{type=incf(1);break;};
case -1:{type=degf(1);break;};
case -2:{if(y[0].st[type].a>=2){y[0].st[type].a-=2;p+=2;choosestate();}else {choosestate();}break;};
case 2:{if(p>=2){y[0].st[type].a+=2;p-=2;chosestate();}else {chosestate();}break;};
case 3:{Stepo2();break;};
case 5:{Battle1();break;};
case 100:{Battlewwn();if (ch[battop].health>0){Battle1();Battleopp();ShowAll();} else Victory(); break;};
case 101:{Assignwpn();Victory();break;};
}Death();Regen();
button=2;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{switch (slide)
{case 1:{type=incf(2);break;};
case -1:{type=degf(2);break;};
case -2:{if (y[0].st[type].a>=3){y[0].st[type].a-=3;p+=3;choosestate();}else {choosestate();}break;};
case 2:{if (p>=3){y[0].st[type].a+=3;p-=3;chosestate();}else {chosestate();}break;};
case 3:{if (y[0].st[4].a>ch[0].st[4].a) {topinbat=1; Battle1();} else Stepo2();break;};
case 100:{Battlewwf();if (ch[battop].health>0){Battle1();Battleopp();ShowAll();} else Victory(); break;};
case 101:{Assignwpf();Victory();break;};
case 7:{Form1->KosmMapOp();break;};
}Death();Regen();
button=3;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{switch (slide)
{case 1:{type=incf(4);break;};
case -1:{type=degf(4);break;};
case 100:{suf=1; jailstart(); break;};
case 101:{LeaveCorpse();break;};
}Death();Regen();
button=5;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{switch (slide)
{case 1:{choosestate();break;};
case -1:{chosestate();break;};
case 2:{;break;};
case 100:{RunfBat();Battle1();Battleopp();ShowAll();break;};
case 101:{Afterbat();break;};
}Death();Regen();
button=6;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{TObjectList *ObjList = new TObjectList(Form1);
//F=fopen("Слайды.txt","r");
Beg=Form1->Memo1->Text;
slide=0;
p=10;
y[0].st[0].a=1;
y[0].st[1].a=1;
y[0].st[2].a=1;
y[0].st[3].a=1;
y[0].st[4].a=1;
y[0].st[0].Abt="Сила";
y[0].st[1].Abt="Ловкость";
y[0].st[2].Abt="Интеллект";
y[0].st[3].Abt="Выносливость";
y[0].st[4].Abt="Харизма";
y[0].mon=1000;
y[0].br[0].bronia=1;
ch[0].Name="пеленг-охранник";
ch[0].mon=150;
ch[0].st[0].a=2;
ch[0].st[1].a=4;
ch[0].st[2].a=1;
ch[0].st[3].a=1;
ch[0].st[4].a=1;
ch[0].health=ch[0].st[0].a*35;
ch[0].wpn[0].name="ржавый нож";
ch[0].wpn[0].damage=6;
ch[0].wpn[0].baseaccuracy=3;
ch[0].wpn[0].weight=200;
ch[0].wpn[0].is=1;
ch[0].wpf[0].name="старый потоковый бластер";
ch[0].wpf[0].damagemin=1;
ch[0].wpf[0].razbros=6;
ch[0].wpf[0].accuracy=5; //уменьшается за метр расстояния
ch[0].wpf[0].weight=800;
ch[0].wpf[0].is=1;
ch[0].ob[0].Name="карта космодрома";
ch[0].ob[0].bns="в углу карты надпись <<ИМЯ>>";
ch[0].ob[0].is=1;
 
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{switch (slide)
{case 1:{Stepo();break;};
case -1:{Stepo();break;};
case 2:{;break;};
case 100:{dist-=5;if (dist>-6 && dist<6) dist=1;Battle1();Battleopp(); break;};
}Regen();Death();
button=7;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button8Click(TObject *Sender)
{y[0].Name=Form1->Edit1->Text;
if (y[0].Name=="") ShowMessage("Вы не ввели имя");
else
{for(int i=0;i<20;i++)
{if (y[0].Name.c_str()[0]==' ') y[0].Name="Мудак";
else
if (y[0].Name.c_str()[i]==' ' && y[0].Name.c_str()[i+1]==' ') y[0].Name="Мудак";};
Form1->Button1->Visible=true;
Form1->Button8->Visible=0;
Form1->Memo1->Visible=true;
Form1->Memo2->Visible=true;
Form1->Label1->Visible=0;
Form1->Edit1->Visible=0;
Form1->Memo1->Lines->Add("К примеру, вы помните, что ваше имя - "+y[0].Name+".");
}
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TButton *Button4;
        TMemo *Memo1;
        TMemo *Memo2;
        TButton *Button5;
        TButton *Button6;
        TButton *Button7;
        TLabel *Label1;
        TEdit *Edit1;
        TButton *Button8;
 
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button5Click(TObject *Sender);
        void __fastcall Button6Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button7Click(TObject *Sender);
        void __fastcall Button8Click(TObject *Sender);
        void __fastcall SButtonClick(TObject *Sender);
 
private:     void __fastcall KosmMapOp();
                 TObjectList *ObjList;
                 TImage *Image;
                 TSpeedButton *SButton; // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);