TAtkRelationSet

type TAtkRelationSet = object(TGObject)

  relations: Pgpointer;

  function new;

  procedure add();

  procedure add_relation_by_type();

  function contains();

  function contains_target();

  function get_n_relations;

  function get_relation();

  function get_relation_by_type();

  procedure remove();

end;

TAtkRelationSet

TGObject