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

This is SubSqr, a member of class Matrix.