[Nevil_White]

Все, правильный ответ нашел сам. Просто в начале в настройках TChart нужно указать Series1 и потом писать код:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  With Series1 do
  for i:=0 to 100 do
  begin
   Series1.AddXY(i,  Y[i], '', clRed);
  end
end;

и оно работает правильно

З.Ы.