procedure Train(aPatterns: TList); override;

This is Train, a member of class TAdalineNetwork.