type
   Thuman=class   人定义成一个类
      public
       constructor Creat;  
       destructor Destory;  公有方法：构造函数和析构函数。
        end;
      constructor Thuman.Creat;
        var s:string;
            begin
            writeln('s=',s); s 没有初始化？
             end;                
             destructor Thuman.Destory;
                   begin
                    end;    方法实现
var
    H:Thuman;
       begin
        H:=Thuman.Creat;
        H.Destory;

       end.
好象没错？当年的tp5.5中的object pascal,不过现在destroy在delphi中是保留字了。