class procedure Normalize(var v: TFloatArray);

This is Normalize, a member of class CVector.