++ of C in ada



How can i implement the operator ++ in ada :

type T_Ptr is access all T_Item;
How can i implement : procedure Increment (Ptr : in out T_Ptr);
thanks

.