procedure Save(var aStream: Tstream);

This is Save, a member of class TNeuroPatterns.