RegTest

procedure RegTest(

  Y: TVector;

  Ycalc: TVector;

  LbY: Integer;

  UbY: Integer;

  V: TMatrix;

  LbV: Integer;

  UbV: Integer;

  var Test: TRegTest

);