procedure Logical_XOR; virtual;

This is Logical_XOR, a member of class TRecognion_NearestNeighborClassifierTests.