Уничтожение массива динамически созданных компонентов

[AndrzejX]

Чисто учебная задачка. Создаю массив динамических компонентов. Каждый элемент массива создаётся по нажатию кнопки, хотя это наверное неважно.

var i: Integer=0;
    lb: Array of TLabel;

//Создание компонентов
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(lb, i+1];
  lb[i]:=TLabel.Create(Form1);
  lb.[i].Parent:=Form1;
  lb[i].OnClick:=Label1Click;//Предварительно созданная процедура
//Ну и настройка других свойств......
  inc(i);
end;

//Уничтожение компонента по щелчку по нему
procedure TForm1.Label1Click(Sender: TObject);
begin
  (Sender as TLabel).Free;
end;

И некоторые компоненты таки удаляются, но чаще всего сразу после удаления выскакивает ошибка "Access violation..."

Прошу помощи - почему выскакивает ошибка, и тогда почему не всегда!
Предварительная команда lb:=nil не помогает. Причём, вручную поставленный компонент Label1 в этой же процедуре уничтожается без вопросов.

[Аватар]

Нельзя удалять компонент в его же событии. Иногда проходит, потому что после Free память не чистится и в ней остаются ошметья от компонента, эта память в любой момент может быть использована для других целей.

[AndrzejX]

Да! Получилось уничтожать по срабатыванию запущенного щелчком таймера. Большое спасибо за пояснение!