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

This is Epoch, a member of class TEpochBackpropagationLink.