Отображение графика в Delphi

[Desc]

Не отображается график по формуле:y=(x-3)/(sqr(x)+2).
Видна только координатная сетка,компилируется без ошибок.Прилагаю текст модуля:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 Procedure TForm1.FormActivate(Sender: TObject);
 var s: integer;
 begin
   for s:= 0 to 20 do
    Chart1.SeriesList[0].AddXY(s,(s-3)/(sqr(s)+2),'',clRed);
    end;
end.

From Stilet: Код кто будет оформлять читабельно? Пушкин?

[Stilet]

Chart1.Series[0].AddXY(s,(s-3)/(sqr(s)+2),'',clRed);
Увидел ошибку?

[Desc]

Таким образом тоже самое,компилируется но график не рисует.
Прилагаю проэкт в ярхиве:

[Stilet]

То что ты его в FormActivate поместил полностью бесполезно, пусть код формирования графика в TForm1.FormCreate отрабатывает.

[Desc]

Имееш ввиду так?

[Desc]

Procedure TForm1.FormCreate(Sender: TObject);
var s: integer;
begin
for s:= 0 to 20 do
Chart1.Series[0].AddXY(s,(s-3)/(sqr(s)+2),'',clRed);
end;

[Desc]

Вот аналогичная задача,только отлично от моей график отображает.Не мойму в чём загвоздка.

[Карась]

Всё работает и при формлоад и при батононклик.

Посмотрите вкладку Евентс формы.

[Desc]

Да действительно,забыл привязать FormeActivate к форме.

[Stilet]

Автор просил закрыть тему.