"With Form1.Canvas do" не отрисовывает прямоугольник

[*starfish*]

Доброго времени суток! Пытаюсь научиться программировать в Delphi 7, тренируюсь на домашних заданиях, попробывала написать программку (найти, как меняется некая величина с течением времени). Вот, что получилось:

procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
P,R,t,G:real;
i:integer;
x:array[1..3600] of TPoint;
begin
t:=StrToFloat(Edit3.Text);
P:=StrToFloat(Edit1.Text);
R:=StrToFloat(Edit2.Text);
//w:=StrToFloat(Edit4.Text);
G:=StrToFloat(Edit5.Text);
//z:=StrToFloat(Edit6.Text);
for i:=1 to 360 do
begin
X[i].y:=150+Round(P*exp(R*t*i-((G*t*t*i)/2)));
X[i].x:=150+i*10;
end;
With Form1.Canvas do
begin
Brush.Color:=clWhite;
Rectangle(40,40,400,300);
Pen.Color:=clRed;
PolyLine(X);
end;
end;
end.

Довольно просто, но только не рисуется линия и нет белого прямоугольника. Подскажите, пожалуйста, в чем ошибка.

[phomm]

ошибки не нашёл.
прямоугольник рисуется нормально

а из-за небольшого косяка - массив объявлен на 1..3600 а в цикле заполняется только 1..360, полилиния не рисуется.

ещё такой момент: все у = 150, ибо та сложная скобка постоянно обращается в 0 (экспонента от большого отрицательного числа), а х просто растет на 10

[Пепел Феникса]

в том что форма не запоминает рисунок нанесенный на нее, и при первой перерисовке ваш прямоугольник улетает.

рисуйте на TIMage.

[*starfish*]

Премного благодарна за отклики по моей теме. Для меня очень важны ваши ответы, поскольку имею скудные знания по Delphi,а спросить особо нет у кого. Исправила цикл и перепроверила формулу, забив предварительно в excel- получаются большие цифры, но не обнуляются т. к P=100, G=0.00052, R=0.16. Все равно никак ничего не рисуется. Насколько я знаю, компонента Image отображает на форме графическое изображение, т.е просто фон, а как с её помощью рисовать? И каким способом можно запомнить рисунок, нанесенный на форму? Собственно не столь важен фон, а интересна кривулька, рассчитанная по формуле. Что же не так, подскажите?