class TForm2 : public TForm
{
__published:	// IDE-managed Components
   void __fastcall FormCreate(TObject *Sender);
private:	// User declarations
public:		// User declarations
   __fastcall TForm2(TComponent* Owner);
   __fastcall TForm2(TComponent* Owner,String sName)
         : TForm(Owner)
   {
      this->Caption=sName;
   }
};
//---------------------------------------------------------------------
//다음과 같이 사용할수가 있지요..
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   TForm2 *frm=new TForm2(this,Edit1->Text);
   frm->ShowModal();
   delte frm
}
//-----------------------------------------------------------------------

   __fastcall TForm2(TComponent* Owner,int iNumber)
         : TForm(Owner)
   {
      this->Tag=iNumber;
   }

//-----------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   TForm2 *frm=new TForm2(this,1);
   frm->ShowModal();
   delete frm;
}

// C++Builder 6.0  VCL 소스   ,   TCustomForm의 생성자 
constructor TCustomForm.Create(AOwner: TComponent);
begin
  GlobalNameSpace.BeginWrite;
  try
    CreateNew(AOwner);     //Form생성자에서 CreateNew를 호출 
    if (ClassType <> TForm) and not (csDesigning in ComponentState) then
    begin
      Include(FFormState, fsCreating);
      try
        if not InitInheritedComponent(Self, TForm) then
          raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      finally
        Exclude(FFormState, fsCreating);
      end;
      if OldCreateOrder then DoCreate;
    end;
  finally
    GlobalNameSpace.EndWrite;
  end;
end;

// // C++Builder 6.0  VCL 소스 
constructor TCustomForm.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
  inherited Create(AOwner);
  // 생략
end;

{ TCustomForm }
//RadStudio2010 의 vcl 소스 
constructor TCustomForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); //bcb6에선 CreateNew를 호출했었는데.. 2010에는 변경됨 
  // 생략 
end;