accessing subprogram & inheritance problem

["VC" <vchan@drs.ca>]

How do I make the following program to compile and work?
I would like to have a subprogram pointer in the root class which
can be used to point to the subprograms in the child class as well.
Is it possible at all with Ada95?

Vicky
---------------------------------------------------------------
with Ada.Text_Io;
use Ada.Text_Io;

procedure Mytest is

   type Root_T;

   type Action_Ptr_T is access
     procedure(Object : in Root_T);

   type Root_T is tagged
      record
         Action_Ptr : Action_Ptr_T;
      end record;

   procedure Root_Action (Object : in Root_T) is
   begin
      Put_Line("Root Action");
   end;

   type Child_T is new Root_T with null record;

   procedure Child_Action (Object : in Child_T) is
    begin
      Put_Line("Child Action");
   end;

   My_Object : Root_T;
   My_Child : Child_T;

begin

   My_Object.Action_Ptr := Root_Action'Access;
   My_Object.Action_Ptr(My_Object);  -- this printed out "Root Action"

   My_Child.Action_Ptr := Child_Action'Access;
   My_Child.Action_Ptr(My_Child);  -- would like it to print "Child Action"

end Mytest;