помогите найти ошибку в коде

[xaero93]

Здравствуйте, господа программисты. Пишу программку для построения графиков(почти закончил)
На данном этапе выскакивает ошибка
list index out of bounds(23)
помогите пожалуйста разобратся.
выкладываю код

procedure TForm1.BitBtn1Click(Sender: TObject);
var args : array [0..100] of extended;
    n,number,nshagint,s : integer;
    y,x,min,max,shag,nshag: real;
    str: string;
begin
  // âû÷èñëåíèå äëèííû îòðåçêà ïî îñè Õ ìåæäó ìèíèìàëüíûì è//
  // ìàêñèìàëüíûì çíà÷åíèåì èç îáëàñòè îïðåäåëåíèÿ ôóíêöèè //
  max:= strtofloat(edit3.Text);
  min:= strtofloat(edit2.Text);
  memo2.Lines[0]:=floattostr(min);
  number:=strtoint(edit4.Text);
  // Âû÷èñëåíèå êîëè÷åñòâà øàãîâ
  if min>0 then
                shag:=max-min;
  if min<0
                then
                     if max>0  then
                                 shag:=max+(min*-1)
                                else
                                  shag:=max*-1+min;
  nshag:=shag*10;
  str:=floattostr(nshag);
  nshagint:=strtoint(str);

  //Ïîñòðîåíèå òî÷êè
begin
x:=min;
  if (memo1.Lines.Count = memo2.Lines.Count) then
   begin
    for n:=1 to nshagint-1 do
    begin
    CalcExpress1.Formula := Edit1.text;
    CalcExpress1.Variables:= memo1.Lines;
     args[0] :=x;
    x:=x+0.1;
    y:=CalcExpress1.calc(args);
    form1.Chart1.Series[n].addxy(x,y);
    number:= number+1;
    edit4.Text:= inttostr(number);
    end;
   end;
  end;
  s:=number;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var s:integer;
begin
for s:=1 to 21 do
begin
form1.Chart1.Series[s].Clear;
end;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
if printdialog1.Execute then form1.Chart1.Print
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var num:integer;
begin
  num:=strtoint(edit4.Text);
  form1.Chart1.Series[num].Clear;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if savepicturedialog1.Execute then
form1.Chart1.SaveToBitmapFile(savepicturedialog1.FileName);
end;

end.

Помогите пожалуйста, нужно позарез(завтра до 9 30 утра)

[counter]

list index out of bounds(23)

походу гдето вышел за пределы массива

[xaero93]

как исправить, я просто не вижу ошибку

[NotProCoder]

Взял, да в делфе отладил стоп точками. Сразу всё увидишь.

[xaero93]

Господа, всем спасибо, ошибку нашел.
for moderator Тему можно закрывать.