AutoScale

procedure AutoScale(

  X: TVector;

  Lb: Integer;

  Ub: Integer;

  Scale: TScale;

  var XMin: Float;

  var XMax: Float;

  var XStep: Float

);