Динамическое создание объектов Опции

[Unconnected]

Привет всем.

Такой вопрос: как можно динамически создавать много объектов? Допустим, нажали на кнопку - создался объект, ещё раз нажали - ещё раз создался, новый, такой же.. Можно, конечно, создать массив нужного типа и конструировать по одному элементу, но мне кажется, это как-то не комильфо в плане экономии памяти. Как быть?

Добавлено через 14 мин.
Сейчас я так попробовал:

var images:array of TImage;
...
getmem(images[val],sizeof(TImage)); //val - номер создаваемого элемента

Ошибка Incompatible Types, на индекс указывает. Может, нельзя выделять память именно для элемента массива?

[volvo]

Вообще-то у класса есть конструктор.

var
  count: integer =0;

procedure TForm1.Button1Click(Sender: TObject);
var memo: TMemo;
begin
  memo := TMemo.Create(Form1);
  memo.Parent := Form1;

  memo.Visible := true;
  memo.Text := IntToStr(count);
  memo.Top := 10 * count;
  memo.Left := 10 * count;
  inc(count);
end;

Идея понятна?