class procedure Sub(var a: TFloatArray; b: TFloatArray);

This is Sub, a member of class Vector.