如何通过TControl在Delphi中附加各种类型对象?