procedure Load(var aStream: Tstream);

This is Load, a member of class TNeuroPatterns.