class function CreateBasis(dataSamples: TFloatMatrix; numberOfVectors: integer; iter: integer; error: float): TEigenSystem; overload;

This is CreateBasis, a member of class TKarhunenLoeveTransform.