[iem00]

Доброго времени суток.

Создаю картинки на форме (мобильное приложение):

Код:

for i := 0 to 17 do begin
    NewEntered_Img[i]:= TImage.Create(MainForm.ScrollBox_Content);
    NewEntered_Img[i].Scale.X:= 2;
    NewEntered_Img[i].Scale.y:= 2;
    NewEntered_Img[i].Position.X:= NewEntered_Img_Grid[i,0];
    NewEntered_Img[i].Position.Y:= NewEntered_Img_Grid[i,1];
    NewEntered_Img[i].Visible:= true;
    NewEntered_Img[i].BringToFront;
    NewEntered_Img[i].Parent:= MainForm.ScrollBox_Content;
    NewEntered_Img[i].Name:= 'NewEnteredImg'+IntToStr(i);
    NewEntered_Img[i].OnClick:= MainForm.MainMenuImageClick;
  end;

Далее их необходимо удалить:

Код:

if NewEntered_Img[0] <> NIL then begin
    for i := 0 to 17 do begin
      NewEntered_Img[i].Parent:= nil;
      NewEntered_Img[i].Free;
      NewEntered_Img[i]:= nil;
    end;
  end;

В ходе работы программы возникает необходимость вновь создать эти картинки, но при повторном выполнении первого кода, программа вылетает на выполнении кода (строка 10 в первом листинге). Такое ощущение, что объекты не были удалены, либо информация об их имени хранится в программе.
Что делать?