Uses StatTools, MtxVec, Statistics;
procedure Example(MtxPCA1: TMtxPCA);
begin
  // ...
  MtxPCA1.Data.SetIt(4,3,false,[1,2,3,
                            5,7,9,
                            1,11,13,
                            3,7,4]);
  MtxPCA1.PCAMode := PCARawData; // using data matrix to evaluate PCA
  MtxPCA1.Recalc; // force recalculation
  // ...
end;

#include "StatTools.hpp"
#include "Statistics.hpp"
void __fastcall Example (TMtxPCA* MtxPCA1)
{
  // ...
  MtxPCA1->Data->SetIt(4,3,false,OPENARRAY(double,
                            (1,2,3,
                            5,7,9,
                            1,11,13,
                            3,7,4)));
  MtxPCA1->PCAMode = PCARawData; // using data matrix to evaluate PCA
  MtxPCA1->Recalc(); // trigger recalculation
  // ...
}