Проблема с удалением динамического объекта

[StrangeR_965]

Всем доброго времени суток!
Прошу прощения за мою тупость, в программировании я шарю, как оказалось, чуть больше чем осьминог в проектировании реактивных двигателей, поэтому будьте не сильно строги.
Такая вот проблема у меня.
Создаю Edit, куда вводятся числа.
Имеется динамический массив объектов типа TLabel.
Нужно сделать следующее: чтобы при изменении значения Edit-а на форме, а вернее на Panel создавался массив Label-ов той же длины, что и введенное в Edit число.
Часть процедуры сделал, и, по всей видимости, крайне криво.

Как у меня реализовано: Процедура Edit1Change проверяет было ли что-то написано в Edit1 до изменения, если нет, то просто создает Label-ы. Если же было, то запоминает введенное до изменения число и если это число меньше, чем новое введенное, то считает разницу между новым и старым числом и до-создает еще такое количество Label-ов. Если же новое введенное в Edit1 число меньше, чем то, что было до изменения, то соответственно нужно удалить лишние Label-ы. Вот тут то и возникает проблема. Не могу удалить их внутри процедуры Edit1Change. Внутри другой, например если повесить удаление на нажатие Button, то все нормально, а внутри Edit1Change, хоть убей - никак.

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;                // Счетчик
    OldLevels:integer;        // Старое введенное число
    Levels:integer;            // Новое введенное число
    LabelsP1:array of TLabel; // Массив Label-ов
begin
  OldLevels:=Levels;            // в процедуре Form1Activate Levels:=0
  if Edit1.Text<>'' then
  begin
    Levels:=StrToInt(Edit1.Text);
    Panel1.Visible:=True;
    SetLength(LabelsP1,Levels);
  end else
  begin
    Levels:=0;
    Panel1.Visible:=False;
  end;
  if ((OldLevels=0)and(Levels<>0)) then
  begin
    for i:=1 to Levels do
    begin
      LabelsP1[i-1]:=TLabel.Create(Self);
      LabelsP1[i-1].Parent:=Panel1;
      LabelsP1[i-1].Left:=0;
      LabelsP1[i-1].Top:=i*20+25;
      LabelsP1[i-1].Caption:=IntToStr(i)+'-é óðîâåíü';
    end;
  end;
  if ((OldLevels<>0)and(Levels<>0)) then
  begin
    if OldLevels<Levels then
    begin
      for i:=OldLevels to Levels do
      begin
        LabelsP1[i-1]:=TLabel.Create(Self);
        LabelsP1[i-1].Parent:=Panel1;
        LabelsP1[i-1].Left:=0;
        LabelsP1[i-1].Top:=i*20+25;
        LabelsP1[i-1].Caption:=IntToStr(i)+'-é óðîâåíü';
      end;
    end;
    if OldLevels>Levels then
    begin

     // Рак мозгов! Перепробовал все что в голову пришло, не могу удалять лишние LabelsP1

    end;
  end;
end;

Парни, помогите, туплю...
Могу прицепить весь проект, если нужно.

[Прик]

- Присвоение неинициализированного значения локальной переменной (OldLevels:=Levels;).
- Сокращение длины массива до того как освобождены объекты, на которые ссылались удаленные элементы массива.

Даже этих логических ошибок достаточно, чтобы на коде в таком варианте поставить крест.

Для удаления любого объекта, в том числе и визуального применяется метод Free
К примеру, LabelsP1[i].Free;