delphi7编写动态创建控件的例子,包含控件的创建和销毁