Удалить Edit1 при нажимание на button

[PaHaNjkee]

Обьявляешь переменные

i: integer = 0;
  edit: array [0..10] of TEdit;

Когда добавляем Edit:

procedure TForm1.Button2Click(Sender: TObject);
begin
if i <> 10 then begin
edit[i] := TEdit.Create(Form1);
edit[i].Parent := Form1;
edit[i].Left := 20;
edit[i].Top := random(100);
edit[i].Width := 130;
edit[i].Height := 21;
edit[i].Text := 'Название';
edit[i].Name := 'Edit'+IntToStr(i+1);
i := i+1;
end else ShowMessage('Создавать больше нельзя!');
end;

Когда удаляем:

procedure TForm1.Button1Click(Sender: TObject);
begin
if i > 0 then begin
edit[i-1].Destroy;
i := i-1;
end;
end;

[alman12]

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

Обьявляешь переменные

i: integer = 0;
  edit: array [0..10] of TEdit;

Когда добавляем Edit:

procedure TForm1.Button2Click(Sender: TObject);
begin
if i <> 10 then begin
edit[i] := TEdit.Create(Form1);
edit[i].Parent := Form1;
edit[i].Left := 20;
edit[i].Top := random(100);
edit[i].Width := 130;
edit[i].Height := 21;
edit[i].Text := 'Название';
edit[i].Name := 'Edit'+IntToStr(i+1);
i := i+1;
end else ShowMessage('Создавать больше нельзя!');
end;

Когда удаляем:

procedure TForm1.Button1Click(Sender: TObject);
begin
if i > 0 then begin
edit[i-1].Destroy;
i := i-1;
end;
end;

болшое спасибо