procedure CreateNetwork; override;

This is CreateNetwork, a member of class TAdalineNetwork.