在线等待：关于构造与析够函数不执行的问题！请帮忙看看什么原因！（急）

Question

type
  Ttest = class(TRemoteDataModule, Itest)
   .
   .
   .
    procedure testCreate(Sender: TObject);
    procedure testDestroy(Sender: TObject);
  private
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);     override;
    procedure Login(const astrCode, astrName, astrJob: WideString); safecall;
  public
    { Public declarations }
  end;    procedure Ttest.testCreate(Sender: TObject);
    begin
      showmessage('create'); 
    end;
    procedure Ttest.testDestroy(Sender: TObject);
    begin
      showmessage('destroy');
    end;

Answer 1

声明使用：
   constructor procedure testCreate(Sender: TObject); override; 
   destructor procedure testDestroy(Sender: TObject); override;constructor procedure Ttest.testCreate(Sender: TObject);
 begin
      showmessage('create'); 
    end; destructor   procedure Ttest.testDestroy(Sender: TObject);
    begin
      showmessage('destroy');
    end;

Answer 2

我上面的程序是参照delphi/Demos的一个例子写的，其实我就是想实现客户端登录的时候，服务器记录下来，有多少位客户在访问，客户端关闭的时候，服务器将此用户去掉。
Demos的例子能做到，为什么我这么写就不行？我不知道我的程序还缺什么代码？

Answer 3

声明使用：
   constructor procedure testCreate(Sender: TObject); override; 
   destructor procedure testDestroy(Sender: TObject); override;constructor procedure Ttest.testCreate(Sender: TObject);
 begin
      showmessage('create'); 
    end; destructor   procedure Ttest.testDestroy(Sender: TObject);
    begin
      showmessage('destroy');
    end;""destructor   procedure ""？

Answer 4

标题我写错了。Demos里的例子就这么定义的：
    procedure testCreate(Sender: TObject);
    procedure testDestroy(Sender: TObject);