procedure SetValuesFromPattern(aInputPattern: TNeuroPattern); virtual;

This is SetValuesFromPattern, a member of class TAdalineNetwork.