WSimFit

procedure WSimFit(

  RegFunc: TRegFunc;

  X: TVector;

  Y: TVector;

  S: TVector;

  Lb: Integer;

  Ub: Integer;

  B: TVector;

  FirstPar: Integer;

  LastPar: Integer;

  V: TMatrix

);