Проблема с добавлением узла в коллекцию

[Zeronim]

Здраствуйте, у меня проблема с добавление узла в коллекцию ixmlnodelist.
Пытаюсь использовать метод Add, пишет ошибку(исключение EAccessViolation). Вот мой код

var
s:string;
i,j:integer;
rootnode:IXMLnode;
currentnode:ixmlnode;
coll:ixmlnodelist;
begin
Doc1.LoadFromFile('C:\xml123.xml');
Doc1.Active := true;
rootnode:=doc1.DocumentElement;

for i := 0 to rootnode.ChildNodes.Count-1 do   begin

if i > 0 then  begin
currentnode:=currentnode.NextSibling;
end
else begin
currentnode:=rootnode.ChildNodes.First;

end;

coll.add(currentnode);  //на этой строке выдает ошибку

подскажите может я неправильно его использую или дайте пример как вы добавляли
использую delphi 2007