Здравствуйте, Вячеслав Ермолаев, Вы писали:

Сорри я точно ламер:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMyComponent2 *A = new TMyComponent2(NULL);
A->PopupMenu=PopupMenu1;
A->Height=100;
A->Width=100;
A->Tag=allA.size();
A->Left=10*(allA.size()+1);
A->Top=10*(allA.size()+1);
A->Name = "Component2" + AnsiString(allA.size()+1);
A->Parent=this;
A->Refresh();
allA.push_back();
}