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

This is Epoch, a member of class TCustomNeuroObject.