property Dim: integer;

This is Dim, a member of class TNearestNeighborClassifier.