Uses MtxExpr,Regress,StatTools;

procedure Example;
var A,V ; Matrix;
  RegressResult: TRegResultClass;
  RegressStatistics: TRegStatsClass
begin
  RegressResult := TRegResultClass.Create;
  RegressStatistics := TRegStatsClass.Create;
  try
    // missing ... populate A and RegressResult.B with appropriate data
    // use already created RegressResult.B and RegressResult.YCalc vectors
    MulLinRegress(Y,A,RegressResult.B,true,RegressResult.YCalc,V);
    // do complete regression analysis here with desired confidence equal to 3%
    RegressResult.CalculateRegResults(Y,V,RegressStatistics,false,nil,0.03);
  finally
    RegressResult.Free;
    RegressStatistics.Free;
  end;
end;

#include "MtxExpr.hpp"
#include "Regress.hpp"
#include "StatTools.hpp"

void __fastcall Example()
{
  sMatrix A,V;
  TRegResultClass regres = new TRegResultClass(null);
  TRegStatsClass regstat = new TRegStatsClass(null);
  try
  {
    // missing ... populate A and RegressResult.B with appropriate data
    // use already created RegressResult.B and RegressResult.YCalc vectors
    MulLinRegress(Y,A,RegressResult->B,true,regres->YCalc,V);
    // do complete regression analysis here with desired confidence equal to 3%
    regres->CalculateRegResults(Y,V,RegressStatistics,false,null,0.03);
  }
  __ finally
  {
    regress->Free();
    regstat->Free();
  }