function Init (To : access Abstract_Track_Number'Class) return Track_Number_Rt is
      Track_Number : Track_Number_Rt;
   begin
      Track_Number.Value := Track_Number_Pt (To);
      return Track_Number;
   end Init;