procedure SkeletonTree(n: integer; dd: integer; bs: integer; const pa: TFloatMatrix; const pi: TIntegerArray);

This is SkeletonTree, a member of class TKDTreeNearestNeighborClassifier.