TParent   =   class  
　　         procedure   proc;virtual;  
　　     end;  
　　  
　　     TChild   =   class(TParent)  
　　         procedure   proc;   reintroduce;   overload;     //重载  
　　         //procedure   proc;   reintroduce;     //重新声明  
　　     end;   

　　 Constructor   Create(AOwner:   TComponent;   NewParam:   Integer);  
　　 begin  
　　     Create(AOwner);  
　　     ...   //do   something   for   NewParam