以下不完整例子为生成一个tmemo的派生类及动态地创建该vcl控件。 

class tmemoex : public tmemo 
{ 
. 
. 
} 
extern tmemoex memoex; 

class tform1 : class tform 
{ 
public: 
tmemoex *memoex; 
. 
. 
} 

void _fastcall tform1::formshow(tobject *sender) 
{ 
memoex=new tmemoex(this); 
memoex->parent=this; 
. 
. 
} 
总之，遵循以下步骤即可： 
类定义; 
extern tmemoex memoex; 
tmemoex *memoex; 
memoex=new tmemoex(this); 
memoex->parent=this