class procedure Divide(var a: TFloatArray; b: float);

This is Divide, a member of class Vector.