delphi的procedure of object(一个特殊的指针类型)