Как удалить все динамически созданние компоненти

[Haberman]

procedure TForm1.Destruct;
  var I:Integer;
begin
   for I :=Leter.Count - 1  downto 0 do
      letteren[i].Free;

  for i:=lar.Count  downto 0 do
   begin
     try
      Konteiner[i].Free;
     Except

     end;
   end;
end;

  lar.Add(intToStr(numb));
 Log1.Items.Add('fut '+IntToStr(numb));

Все что создается добавляется в список.
Почему не удаляет 1 или несколько последних?

[Serge_Bliznykov]

очень странный код!

м.б.

   for I :=letteren.Count - 1  downto 0 do
      letteren[i].Free;

  for i:=Konteiner.Count-1   downto 0 do
      Konteiner[i].Free;

[Haberman]

Уже било по-разному и так делал, иногда не удаляет несколько и все тут..

[evg_m]

наличие РАЗНЫХ переменных для организации ЦИКЛА и для управления объектами (в том же цикле)
ОЗНАЧАЕТ ПРЕДПОЛАГАЕТ и наличие РАЗНЫХ мест хранения объектов.
покажите ВСЕ места создания (и сохранения) динамических компонентов.
удаление компонентов из одного места НЕ приведет к удалению прочих.

иногда не удаляет несколько и все тут..

А двойное удаление приведет к ошибке(AV).
"правильно" созданные компоненты "автоматом" будут удалены при удалении ИХ владельца (компонента указанного при их создании).