Создание компонентов Run Time

[_SERGEYX_]

Конечно так и есть...
Serebah, напиши Mass: array of TEdit; в глобальные переменные, там где Form1: TForm1;
чтобы получилось примерно так

var
  Form1: TForm1;
  Mass: array of TEdit;

а длину массива определи, например, при создании формы

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(Mass, 0);
end;

А уже на кнопку повесь код, типа

procedure TForm1.RzBitBtn3Click(Sender: TObject);
begin
  SetLength(Mass, length(Mass) + 1);
  Mass[length(Mass) - 1] := TEdit.Create(Self);
  with Mass[length(Mass) - 1] do
  begin
    Parent := Form1;
    Top := 10 + length(Mass) * 25;
    Left := 10;
    Text := 'Edit' + inttostr(length(Mass));
  end;
end;

И будет тебе счастье. Правда потом нужно будет сделать для всех Edit-ов
Edit.Free;, но это уже другая история

[Serebah]

Спасибо большое! Все получилось!

[Serebah]

А как теперь последнему созданному эдиту сделать фри?

[_SERGEYX_]

Ну, последний мы знаем без проверки

Mass[length(Mass)-1].Free;

а так удаляем все в обратном порядке

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var i: Integer;
begin
for i:= length(Mass)-1 downto 0 do
Mass[i].Free;
end;

или можно удалить все Edit-ы на форме
(так ошибок не будет, если edit не существует)

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var i: Integer;
begin
  with Form1 do
  for I := ComponentCount - 1 downto 0 do
    if (Components[i] is TEdit) then
      (Components[i] as TEdit).Free;
end;