procedure AddLink(var links: TArrayOfCustomNeuroLink; link: TCustomNeuroLink);

This is AddLink, a member of class TCustomNeuroNode.