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

[Unconnected]

Привет всем.

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

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

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

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

[volvo]

А ведь переменная в обработчике кнопки одна, а мне надо много объектов создавать. И как я потом смогу обратиться к нужному?

А по имени и сможешь. Скажем, так:

procedure TForm1.Button1Click(Sender: TObject);
var memo: TMemo;
begin
  memo := TMemo.Create(Form1);
  memo.Parent := Form1;
  memo.Name :=  Format('MyMemo%.2d', [count]); // Назначаешь нужное имя.

  memo.Visible := true;
  memo.Text := IntToStr(count);

  memo.Top := 20 * count;
  memo.Left := 20 * count;
  inc(count);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  (Form1.FindComponent('MyMemo02') as TMemo).Text := 'Oops'; // И обращаешься по нему к компоненту...
end;