O1:=New T1(); //创建对象，引用计数=1
O2:=O1; //对象引用计数加1
O1:=0; //对象引用计数减1
echo "O1 to Zero";
O2:=0; //对象引用计算减1，为0，即释放对象
echo "O2 to Zero";
Type T1=class
 function destroy();
 begin
  echo "destroy";
 end;
End;