Delphi的Create到底要不要声明为virtual供子类覆盖？

在D6上做了一个实验，如果子类要想覆盖父类的Creat构造函数，父类的Create必须声明为virtual，否则有时子类的代码执行不到！

  TSvrBizObj = class(TPersistent)
  private
    FDBService: TLYService;
  public

    constructor Create(ADBService: TxxService); 
  end;

  TDemoObj = class(TSvrBizObj)
  public
    //
    constructor Create(ADBService: TxxService);  
  end;

...

constructor TSvrBizObj.Create(ADBService: TxxService);
begin
  FDBService := ADBService;
  if not FDBService.Connection.Connected then
    FDBService.Connection.Open;
end;

constructor TDemoObj.Create(ADBService: TService);
begin
  inherited Create(ADBService);
  
  ShowMessage('a');
end;

再写一段测试代码，看看DemoObj中的Create执行了没：

var
  FClass: TSvrBizObjClass;
  Obj: TSvrBizObj;
begin
  FClass := TSvrBizObjClass(GetClass('TDemoObj'));
  Obj := FClass.Create(FService);
  ...
end;

可以看到，在这段测试代码中，ShowMessage这一句没有执行到！解决方法是把父类的Create声明为virtual，在子类中override。