#3 Add a Intrusive List

[Jean-Philippe BEMPEL]

Add Classes implementing Intrusive list with each node
that contains Datas and méthods to link with other nodes

example:
INode = interface
function GetNext: INode;
procedure SetNext(const v: INode);
function GetPrev: INode;
procedure SetPrev(const v: INode);
procedure Remove;
procedure AddAfter(const v: INode);
end;

create a TNodeImpl that implements this methods.

a new list derive from tNodeImple adding datas.

maybe implements directly IIterator (INode).