procedure Train(aPatterns: TList); virtual;

This is Train, a member of class TCustomNeuroNetwork.