procedure SetNodeLearningRate(const aLearningRate: TNeuroValue); virtual;

This is SetNodeLearningRate, a member of class TAdalineNode.