procedure SetData(numVectors: integer; vectors: TFloatMatrix; mean: TFloatArray);

This is SetData, a member of class TEigenSystem.