delphi做的ocx只要加入自己的方法(Method),在pb8.03中调用该方法就不行了，急啊

Question

我用delphi做了个很简单的ocx，但是只要加入自己的方法(Method),在pb8.03中调用该方法就不行了，pb会在关闭窗口是自动退出，不知道是什么原因？代码如下：library Acc;uses
  ComServ,
  Acc_TLB in 'Acc_TLB.pas',
  Avc in 'Avc.pas' {ActiveFormX: TActiveForm} {ActiveFormX: CoClass};{$E ocx}exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;{$R *.TLB}{$R *.RES}begin
end./////////////////////////////////////////
...................... ... ...
procedure TActiveFormX.Initialize;
begin
  inherited Initialize;
end;procedure TActiveFormX.Method1;
begin
  Button1.Caption := 'ok';//这是我加的代码
end;initialization
  TActiveFormFactory.Create(
    ComServer,
    TActiveFormControl,
    TActiveFormX,
    Class_ActiveFormX,
    1,
    '',
    OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
    tmApartment);
end.