delphi 声明的对象自动创建