How do I get this to work??

["Chris Warwick" <chris.warwick@cdcgy.com>]

   package Ada_Front_End is

      type Session_Type is
         record
            Status : integer := 0;
         end record;

      type Session_Ptr_Type is access Session_Type;

      function Close_Port (Session : in Session_Ptr_Type) return integer;
   end Ada_Front_End;

   procedure Close_Connection is
      Session : aliased constant Ada_Front_End.Session_Type;
      Session_Ptr : Session_Ptr_Type := Session'Access;
   begin
      Ada_Front_End.Close_Port
            (Session => Session_Ptr);
   end Close_Connection;