КурсачЪ, Разработка таблиц, проблема с удалением компонентов.

[DiQ]

Суть курсового проекта:

Разработать табличный редактор для расчета стоимости создания компьютерной сети.

StringGrid не предлагать, и обязательное условие разработка в delphi

Проблема следующая,
При повторном создании полей ввода, повторяются имена и выскакивает ошибка.
Каким образом можно избежать данной ошибки ?

unit WindSecond;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure pwB;
    procedure pwE;
    procedure pwL;
    { Public declarations }
  end;

var
  Form2: TForm2;
  PosL,PosT:integer;
  wB:TButton; wE:TEdit; wL:TLabel;

implementation
  uses WindMain, LIBR;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  i,wCount: Integer;
begin

  PosT:=70;
  wCount:=StrToInt(Edit1.Text);

  for I := 1 to wCount do
  begin
  PosL:=20;
  pwE;
  wE.Name:='Title'+IntToStr(I);
  wE.Width:=150;
  wE.Left:=PosL;
  wE.Top:=PosT;
  PosL:=PosL+150+20;

  pwE;
  wE.Name:='Amount'+IntToStr(I);
  wE.Width:=40;
  wE.Left:=PosL;
  wE.Top:=PosT;
  PosL:=PosL+40+20;

  pwE;
  wE.Name:='Price'+IntToStr(I);
  wE.Width:=40;
  wE.Left:=PosL;
  wE.Top:=PosT;
  PosL:=PosL+40+20;

  pwE;
  wE.Name:='Equally'+IntToStr(I);
  wE.Width:=40;
  wE.Left:=PosL;
  wE.Top:=PosT;
  PosL:=PosL+40+20;

  PosT:=PosT+30;
  end;

end;
procedure TForm2.pwB;
begin
  wB:=TButton.Create(Form2);
  wB.Parent:=Form2;
  wB.Left:=PosL;
  wB.Top:=PosT;
end;

procedure TForm2.pwE;
begin
  wE:=TEdit.Create(Form2);
  wE.Parent:=Form2;
  wE.Left:=PosL;
  wE.Top:=PosT;
  wE.Text:=' ';

end;

procedure TForm2.pwL;
begin
  wL:=TLabel.Create(Form2);
  wL.Parent:=Form2;
  wL.Left:=PosL;
  wL.Top:=PosT;
end;
end.

[Streletz]

Свойство Name должно иметь уникальное значение, а у Вас они повторяются при каждом нажатии кнопки.

[DiQ]

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

Свойство Name должно иметь уникальное значение, а у Вас они повторяются при каждом нажатии кнопки.

та это понятно,
но сложность у меня заключается именно в том что бы удалить объекты

[Streletz]

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

та это понятно,
но сложность у меня заключается именно в том что бы удалить объекты

Удаление делается с помощью Free/
Пример для Edit-ов.

procedure TForm2.Button2Click(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while (i <= Form2.ControlCount - 1) do
  begin
    if ((Pos('Title', Form2.Controls[i].Name) <> 0) or
      (Pos('Amount', Form2.Controls[i].Name) <> 0) or
      (Pos('Price', Form2.Controls[i].Name) <> 0) or
      (Pos('Equally', Form2.Controls[i].Name) <> 0)) then
    begin
      Form2.Controls[i].Free;
      continue;
    end;
    inc(i);
  end;
end;

С остальными компонентами аналогично.
P.S. Настоятельно советую не копипастить код примера "в лоб", а всё-таки в нём разобраться.