Не могу понять

[Superlotles]

1)

Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);//Создали объект TForm2 и записали в переменную Form2
  Application.Run;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);//Создали объект TForm2 и записали в переменную Form2
end;

Это получается в памяти могут создаваться переменные с одинаковыми именами





2) Если несколько раз нажать на Button 1 то получается что в переменную Form2 записалось несколько объектов TForm2, а если вызвать метод Form2.Free то по идеи должны 2 переменные Form2 очиститься и все формы убраться,а убирается только последняя

Почему ???
Что я не правильно понимаю

[VintProg]

Когда вы нажимаете второй раз на кнопку создать форму
то в переменую Form2 присваивается новый указатель на форму
то и есть когда вы пытаитесь уничтожить Form2.free то и уничтожаете
ту форму на которую записан указатель на Form2;

[Superlotles]

Когда я запускаю приложение в переменную Form2 записывается первый указатель на на создание формы TForm2

Когда я нажимаю на кнопку создать форму, то в переменную Form2 записывается еще один указатель на создание формы TForm2

То есть в переменной Form2 записано 2 указателя на создание формы TForm2

Вы говорите, что метод Free удаляет ту форму, на которую указывает указатель в переменной Form2, но ведь в этой переменной записан указатель на 2 формы, а Free удаляет одну

[Stilet]

То есть в переменной Form2 записано 2 указателя на создание формы TForm2

Нет. Когда ты на кнопку кликаешь, старый указатель затирается новым, а сама форма остается без переменной, ссылающейся на нее и фактически теряет якорь, становясь мусором.
А Free действует только на ту, которая связана с этой переменной.

[VintProg]

Пользуйся в таких случиах массивом или TList или же TListObject,
у уделяй и ту форму которую выбрал.

[Superlotles]

Понятно, только не ясно, как форма может быть без переменной

[netrino]

Ну как как... форма создаётся в памяти, в переменной хранится лишь указатель(грубо говоря смещения относительно начала памяти), его можно затереть, таким образом мы потеряем её(формы) местоположение и не сможем к ней обращаться =) а сама форма продолжит существование

[Superlotles]

Понял. Спасибо. Вы все Super. Форум класс !!!

[DomiNick]

Я не совсем понял что вы делаете...

Вы хотите создать приложение с двумя формами или создавать формы динамически во время выполнения программы?

Если второе, то надо бы их как-то называть (и попутно сделав проверку есть ли уже форма с таким названием):

Procedure TForm1.Button1Click(Sender: TObject);
Var Obj: TComponent; MyNewForm: TForm;
Begin
Obj:=Application.FindComponent('MyNewForm');
If Obj=Nil Then
      Begin
      MyNewForm:=TForm.Create(Application); // если формы с таким именем не существует - создаём её...
      MyNewForm.Show;
      MyNewForm.Name:='MyNewForm';
      End;
End;

Procedure TForm1.Button2Click(Sender: TObject);
Var Obj: TComponent;
Begin
Obj:=Application.FindComponent('MyNewForm');
If Obj<>Nil Then
      (Obj As TForm).Free; // если такая форма существует - уничтожаем её...
End;