procedure Save(var aStream: Tstream); virtual;

This is Save, a member of class TCustomNeuroObject.