如果没有显式调用,Delphi调用是否在重写过程上继承

type
  TParent = class
  public
    procedure DoSomething; virtual;
  end;

  TChild = class(TParent)
  public
    procedure DoSomething; override;
  end;

procedure TParent.DoSomething;
begin
  // 父类的实现
end;

procedure TChild.DoSomething;
begin
  // 子类的实现
end;

var
  Child: TChild;
begin
  Child := TChild.Create;
  try
    Child.DoSomething; // 调用父类的DoSomething方法
  finally
    Child.Free;
  end;
end;