class procedure Sub(var a: TFloatMatrix; vector: TFloatArray);

This is Sub, a member of class Matrix.