The procedure Qt_Ada.Object_Unchecked_Deallocation is a generic procedure indended to be used for unchecked deallocation of object derived from QObject class. It must be used very carefully and only if safe object deallocation (by call to QObject::deleteLater operation) don't meet application criteria.

with Qt4.Objects;

generic
   type Object is abstract new Qt4.Objects.Q_Object with private;
   type Object_Access is access all Object'Class;

procedure Qt_Ada.Object_Unchecked_Deallocation (Item : in out Object_Access);