procedure Save(var aStream: Tstream); override;

This is Save, a member of class TAdalineNetwork.