我认为，做到这一点的唯一办法是：
1.通过调用Parent中的非虚拟方法实现Parent.virtFunc。
1.当你想以非多态的方式调用virtFunc时，你就调用那个非虚拟的方法，而不是调用virtFunc。

一个

{
     получить доступ к предкам даж если их методы виртуальные
     дети выполнятся не будут

     пример
         TV1 = class
            public
             A:integer;
             function GetH:integer;virtual;
         end;

         TV2 =class (TV1)
            public
              B:integer;
             function GetH:integer;override;
         end;
        //////////////////////////////////
        function TV2.GetH:integer;
        begin
          Result:=inherited +B;
        end;
        function TV1.GetH:integer;
        begin
          Result:=A;
        end;
        procedure TForm1.Panel1Click(Sender: TObject);
          var I:TV2;
          s:integer;
        begin

           I:=TV2.Create;
           I.B:=2;
           I.A:=1;

           //хочу получить доступ с формы к TV1.GetH что бы  TV2.GetH не выполнялся
           AmVirtual<TV2,TV1>.G(I,
           procedure(X2:TV1)
           begin
            s:=X2.GetH;
           end);

           showmessage( s.ToString);  // >> 1
           showmessage( I.GetH.ToString);//>> 3
           I.free;
        end;
    }
  type
   AmVirtual<T1,T2:class> =class
    type
     TProc = reference to procedure (X2:T2);
      class procedure G(X1:T1;Proc:TProc);static;
   end;
class procedure AmVirtual<T1,T2>.G(X1:T1;Proc:TProc);
 type
 PClass = ^TClass;
 var
 ClassOld: TClass;
begin
 ClassOld := PClass(X1)^;
 PClass(X1)^ := T2;
 try
   proc(X1 as T2);
 finally
  PClass(X1)^ := ClassOld;
 end;
end;

两个

type
 TProc = procedure (arg:TObject) of object;
var Proc: TProc;

begin
  TMethod(Proc).Data:=self;
  TMethod(Proc).Code:=@TParent.Proc;
  Proc(Sender);