Как обращаться к программно создаваемой форме

procedure TForm1.Button1Click(Sender: TObject);
begin;
Form2:= TForm2.Create(Application);
Form2.Caption:= 'Новое сообщение';
form2.Show;
end.

type
  TForm1 = class(TForm)
  ...
  private
    FForms: TList;
  public
    { Public declarations }
  end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FForms:= TList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to FForms.Count-1 do 
    TForm2(FForms[i]).Free;
  FForms.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin;
  Form2:= TForm2.Create(Application);
  Form2.Caption:= 'Новое сообщение';
  Form2.Show;
  FForms.Add(Form);
  // после этого созданная форма доступна как TForm2(FForms[x]), где x -- номер по порядку.
  // цикл по всем ранее созданным формам выглядит так: for i:= 0 to FForms.Count-1 do TForm2(FForms[i])....
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Cnt : Integer;
  Cmp : TComponent;
  Form : TForm;
begin
  Memo1.Text := 'Список форм, для которых Application назначен владельцем:';
  Cnt := 0;
  for i := 0 to Application.ComponentCount - 1 do
  begin
    Cmp := Application.Components[i];
    if Cmp is TForm then
    begin
      Inc(Cnt);
      Form := Cmp as TForm;
      Memo1.Lines.Add('Form.Name = "' + Form.Name + '"');
    end;
  end;
  Memo1.Lines.Add('Application. Количество форм: ' + IntToStr(Cnt));
end;

var
  FormNew:[B]TForm2[/B];
begin
  FormNew := [B]TForm2[/B].Create(Application);
  FormNew.Show;
  FormNew.Caption :=FormNew.Name;
end;

var
  FormNew:[B]TForm[/B];
begin
  FormNew := [B]TForm[/B].Create(Application);
  FormNew.Show;
end;

var
  FormNew:TForm;
begin
  FormNew := TForm.Create(Application);
  FormNew.Show;
  FormNew.Name := 'Name1';
  Name1.Caption := Name1.Name;    <---
  Name1.Name := 'Name2';
  Name2.Caption := Name2.Name;
end;