procedure Epoch(aEpoch: Integer = 0); override;

This is Epoch, a member of class TBackpropagationRPROPLink.