array 써서 생성한 폼의 pointer 저장하세요.
소스가 정리가 덜 되어 있어서 자세히 답변드리지는 못 합니다만...

이렇게 하시면 f에 마지막 생성한 포인터만 들어갈 듯 싶네요.
사실 저렇게 해서 오류가 안나는 게 이상합니다만...

TObjectList 나 array 사용해서..
생성한 객체의 포인터 기억하신 뒤...
그 array를 loop 돌려가면 처리하시면 될 듯 합니다.

이성제 님이 쓰신 글 :
: for (100)          // 100번 생성입니다.
: {
: TForm *f;
: TLabel *l;
: TButton *b;
: f=new TForm(this);
: l=new TLabel(this);
:     b=new TButton(this);
:     f->Top=random(800);
:     f->Left=random(1000);
:     f->Width=169;
:     f->Height=128;
:     f->Caption="사랑해♡";
:     l->Caption="사랑해♡";
:     l->Width=57;
:     l->Left=16;
:     l->Height=13;
:     l->Top=24;
:     l->Parent=f;
:     b->Caption="확인";
:     b->Parent=f;
:     b->Left=48;
:     b->Top=56;
:     b->Left=48;
:     b->OnClick=Button;
:     f->Show();
: }
:
: 이렇게 동적으로 폼을 생성 하고
:
: 그 폼에 버튼이 달려 있어서 그 버튼을 누르면 해당 폼이 꺼지는거죠
:
: 근데 안대내요
:
: 마지막에 나온것만 꺼지고 ㅎ
:
: 어떻게 해주면 될지..
:
: 아
:   void __fastcall Button(TObject *Sender);
:
: void __fastcall TForm1::Button(TObject *Sender)
: {
:     f->Close();
: }
:
: 이거 해줬습니다.
:
: 해결좀..