[lmikle]

Не, тут другое. Кто сказал, что первые 5 компонентов будут именно твоими Edit'ами??? Никто это гарантировать не может. Так что должно быть так:

Код:

procedure TForm1.SpinEditDown(Sender: TObject);
var 
  i:integer;
  x,y:double;
  e : TEdit;
begin
  series1.Clear;
  series2.Clear;
  for i:=0 to 5 do
  begin
    e := TEdit(FindComponent('Edit' + IntToStr(i)));
    if e = Nil then continue;
    x:=x+1;
    y:=strtoint(e.text);
    series1.AddXY(x,y);
    series2.AddXY(x,y);
  end;
end;

ЗЫ. А хто х инициализировать будет???