Найти первую пустую ячейку массива (Почему не работает)

[Rec0il]

Цель: сделать панель быстрого запуска на компоненте Image.
Не могу понять почему программа не работает как надо.
Заранее говорю, код что ниже, находится в кнопке.
один клик = один созданный Image

Как я хочу что бы она работала:
Создаётся N-ое количество Image, пусть будет 10 для начала...
Далее, допустим захотелось удалить несколько любых (не обязательно последних по счету), для примера возьмем на удаление 3-й и 6-й.
Далее, если опять попытаться создать Image, он должен создать вначале 3-й... То-есть берет первую по счету пустую ячейку массива.

Как программа ведет себя с данным кодом:
Всё тот же пример.. 10 Image, удалили 3-й и 6-й.
Пробуем добавить Image, но программа создает не 3-й или 6-ой, а 11-й(всего создали 10), то-есть что-то не так я сделал. что именно ? поглядите пожалуйста код.

 var i:Integer;

  public
      IMG : array [1..20] of TsImage;
end;

  Form1: TForm1;
n:Integer;

...
...
...
...


var i : integer;
  begin
     for i:=1 to 20 do // делаю цикл от 1 до 20
   begin
     if IMG[i]=nil then // если в ходе цикла находит пустую ячейку
     begin
       n:=i; // переменной для создания Image присваиваю значение из i
      IMG[n] := TsImage.Create( Form1 ); // создаем...
      IMG[n].Parent := Form1;
      IMG[n].Name := 'IMG' + inttostr( n );
      IMG[n].Align:=alTop;
      IMG[n].Top := n;
      IMG[n].Width := 33;
      IMG[n].Height := 33;
      IMG[n].Picture.LoadFromFile( DefaultImage );
      IMG[n].Tag:=n;
       Break; // завершаем цикл, что бы не создавало все Image сразу. А только первый (по счету) не созданный. 
     end;
   end;

Если что, удаляю с помощью .Free;

[Filka]

FreeAndNil вместо Free (?)

[come-on]

Где удаление, зачем n, почему 20?

[Rec0il]

Сообщение от Filka

FreeAndNil вместо Free (?)

Undeclared identifier: 'FreeAndNil'

Сообщение от come-on

Где удаление, зачем n, почему 20?

Я же написал, удаляю путем Free;
Если подробнее, то
Есть переменная SensorTag, которая принимает Tag компонента, путем mousemove на компонент.
Правой кнопкой по компоненту вызывается popup, в нем кнопка удалить, в которой код:
IMG[SensorTag].Free;

[Filka]

Undeclared identifier: 'Freeandnil'

uses SysUtils

[Rec0il]

Сообщение от Filka

uses SysUtils

SysUtils Записан в Uses. Не помогает.. все ровно Undeclared identifier: 'FreeAndNil'

[Filka]

Где код удаления?

[come-on]

IMG[SensorTag].Free;

ну так вы проверяете if IMG[i]=nil, а кто его туда положил, аспушкин??
вот и укажите
IMG[SensorTag].Free;
IMG[SensorTag] := nil;

[Rec0il]

Сообщение от Filka

Где код удаления?

Есть переменная SensorTag, которая принимает Tag компонента, путем mousemove на компонент.
Правой кнопкой по компоненту вызывается popup, в нем кнопка удалить, в которой код:

IMG[SensorTag].Free;

[Rec0il]

Сообщение от come-on

ну так вы проверяете if IMG[i]=nil, а кто его туда положил, аспушкин??
вот и укажите
IMG[SensorTag].Free;
IMG[SensorTag] := nil;

Спасибо, я бы долго еще втыкал на код создания, а не удаления)))
Всем спасибо пацаны, проблема решена.