procedure TForm.FormCreate(Sender: TObject);
var
  i: integer;
  xval: Double;
begin
  with AdvChartView1.Panes[0] do
  begin
    //Set range
    Range.RangeFrom := 0;
    Range.RangeTo := 100;
    Range.MaximumScrollRange := 100;
    Range.MinimumScrollRange := 0;
    //Set X-Axis size
    XAxis.Size := 60;
    //Add points with custom X-Axis text
    with Series[0] do
    begin
      ChartType := ctBar;
      AutoRange := arEnabledZeroBased;
      Color := clBlue;
      ColorTo := clSilver;
      for I := 0 to 100 do
      begin
        xval := 144 + (I * 0.2);
        AddSinglePoint(RandomRange(20, 100),  FloatToStr(xval));
      end;

      //Rotate text
      XAxis.TextBottom.Angle := 40;
      //Enabled tickmarks
      XAxis.TickMarkColor := clBlack;
    end;
  end;