Динамический массив TPoint

[NSV]

Здравствуйте!
Я как всегда с проблемой...
Вот написал простенькую программку...

procedure TForm1.Button1Click(Sender: TObject);
var pol: array[1..7] of TPoint;
    i: integer;
begin
  for i:= 1 to StrToInt(Edit1.Text) do
    begin
      pol[i].X:=random(300);
      pol[i].Y:=random(300);
    end;
  Form1.Canvas.Polygon(pol);
end;

Не знаю как сказать... В общем, нужно чтобы вместо "7" в массиве можно было поставить какую-нибудь переменную, а не константу, чтобы можно было прямо из "Edit1" задавать количество вершин в многоугольнике.
Т.е. проблема у меня с массивом (Видимо не до конца я понимаю то, как можно обойти проблему заранее установленной длины массива).
В поисковиках посмотрел, но что-то ничего не нашел.
Так что прошу бывалых не ругаться
Спасибо!

P.S. Если я не на правильном пути, то подскажите альтернативный вариант.

[Granus]

procedure TForm1.Button1Click(Sender: TObject);
var pol: array of TPoint; // не задаем размер сразу
    i,n: integer;
begin
  n=StrToInt(Edit1.Text);
  SetLength(pol,n); // устанавливаем длину массива
  for i:= 0 to n-1 do  // если в массиве n элементов, то это элементы от 0 до n-1
    begin
      pol[i].X:=random(300);
      pol[i].Y:=random(300);
    end;
  Form1.Canvas.Polygon(pol);
end;

кстати, а в задаче обязательно использовать массив? без массива все будет гораздо проще.

[NSV]

Огромное спасибо, Granus!
SetLength - вот эта фишка мне и нужна была.
Теперь всё ОК!

Просьба чуть-чуть подправить '=' на ':=' и всё

Рас уж я зацепился за динамические массивы, то, скажите пожалуйста, как такое провернуть на паскале (и можно ли). На сколько я знаю, там нет динамических массивов.

кстати, а в задаче обязательно использовать массив? без массива все будет гораздо проще.

Думаю, что да, хотя... Не знаю. А как проще?

[Granus]

Просьба чуть-чуть подправить '=' на ':=' и всё

извиняюсь, привычка из Си)

На сколько я знаю, там нет динамических массивов.

На сколько я знаю, там их и правда нет
их можно реализовать по-другому:
http://algolist.manual.ru/ds/basic/simple_list.php
может поможет)

[NSV]

Thank You Very Mach

[Granus]

mUch) через U