рисование Chart

[San4o]

Всем привет

В программе по коэфициенту рисуется график. Коэффициент меняется UPDown'ом. Первые два-один раз перерисовывает нормально, дальше выдает ошибку : "Access violation at address". До этого почему-то все нормально работало. я изменил переменную цвета вместо Colorgrid.foregroundColor поставил свою переменную color. В чем может быть ошибка???
Код программмы:

procedure TForm1.UD1Click(Sender: TObject; Button: TUDBtnType);
var r1,r2,r:real;
    f,fk,fs3:boolean;
    k,i:integer;
begin
if n_mas<>0 then
begin

//
E1.Text:=floattostr(int(UD1.Position)/int(UD1.Max));
    Ud1.Position:=round(strtofloat(E1.Text)*int(UD1.Max));
//
S2.Clear;
S3.Clear;

progress_box.Visible:=true;
progress.Visible:=true;
progress.Max:=n_mas;



k:=0;
f:=false;
fk:=false;
fs3:=false;
if high(fx)<n_mas then setlength(fx,n_mas-1);
for i:=0 to n_mas-1 do
begin

      if not f then
      begin
            fx[i]:=mas[i];//*(strtofloat(form1.E1.Text));
            f:=true;
      end
      else
      begin
          fx[i]:=fx[i-1]+(mas[i]-fx[i-1])*(strtofloat(form1.E1.Text));

          if (fx[i-1]-fx[i])>=strtofloat(form1.E2.Text) then
          begin
          s2.Addxy(i,fx[i],'',color3);
          s3.AddXY(i,(chart1.LeftAxis.Maximum*0.98),'',color3);

          fs3:=true;
          if not fk then
          begin
                s3.AddXY(i-1,(chart1.LeftAxis.Maximum),'',color3);
                s3.AddXY(i-1,(chart1.LeftAxis.Maximum*0.98),'',color3);
                fk:=true;
                inc(k);
          end;

          Stringgrid1.Cells[1,i]:='+';

           end
           else
           begin
           s3.AddXY(i,chart1.LeftAxis.Maximum,'',clBlack);
            if fs3 then
            begin

            s3.AddXY(i-1,chart1.LeftAxis.Maximum,'',color3);
            s3.AddXY(i,chart1.LeftAxis.Maximum,'',color3);
            //s3.AddXY(i,-40,'',color3);
            fs3:=false;
            
            end;
           form1.Stringgrid1.Cells[1,i]:='';

           fk:=false;
           end;
      end;
      form1.s2.Addxy(i,fx[i],'',color2);
      progress.Position:=i;
end;
progress_box.Visible:=false;
progress.Visible:=false;

Label6.Caption:='Êîëè÷åñòâî ïðîìåæóòêîâ : '+inttostr(k);
end;
end;

причем запинается на строчке S1.clear(S1 - серия в чарте) с тем сообщением что я написал. Кто знает с чем это связано?

[Stilet]

причем запинается на строчке S1.clear

Ну и где она в коде?
И вообще проверял бы ты ее на nil.

[San4o]

S2.clear (описался)

И вообще проверял бы ты ее на nil.

это как?

[Stilet]

Это так:

procedure TForm1.UD1Click(Sender: TObject; Button: TUDBtnType);
var r1,r2,r:real;
    f,fk,fs3:boolean;
    k,i:integer;
begin
if n_mas<>0 then
begin

//
E1.Text:=floattostr(int(UD1.Position)/int(UD1.Max));
    Ud1.Position:=round(strtofloat(E1.Text)*int(UD1.Max));
//
if s2=nil then s2:=Четамутязатип.Create(...);
if s3=nil then s3:=Четамутязатип.Create(...);
S2.Clear;
S3.Clear;

[pasha270986]

Народ, помогите пожалуйста разобраться! Как добиться чтобы график мой заданный по точкам через код представленный ниже строил кривую.
L:=arcsin(sin(u))*i;
B:=tan(u)*i+S+t11;
Serias1.AddXY(L,B,'',clblack);
Кривую у меня строит, но области все закрашенные, т.е. там эта кривая проходит и сверху и снизу, а он их соединяет, типо интерполяции, или может я что то не так делаю?