做过三层的大侠，请进来帮帮忙！真让我头痛！

我参考Demos的一个例子写的代码，怎么就不行啊？请帮忙说说怎么回事？解决后再加50分，以表示感谢！我就是想实现客户端登录的时候，服务器记录下来，有多少位客户在访问，客户端关闭的时候，服务器将此用户去掉。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
      MainForm.IncQueryCount; 
    end;
    procedure Ttest.testDestroy(Sender: TObject););//我得程序里不执行
    begin
      MainForm.UpdateClientCount(-1);
    end;