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

This is Add, a member of class Vector.