class function EuclidianSquared(vector1: TFloatArray; vector2: TFloatArray): float;

This is EuclidianSquared, a member of class Distance.