Динамическое создание n -ного количества форм

var 
  FormChat: TForm; 
 
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  FormChat:=TForm.Create(Application); 
  FormChat.Show; 
end;

  FormChat:=TForm.Create(Application); 
  SetWindowLong(FormChat.Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
  FormChat.Show;

Application.CreateForm(TForm, formChat);

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  self.Hide();
  CanClose := false;
end;

array of TForm

type
  MyArrItem = record
    userID: integer;
    form: TForm;
  end;
  MyArr = array of MyArrItem;

var
  frms : TStringList;
// ...
  frms := TStringList.Create;
  frms.AddObject('1=Form1', Form1);
  frms.AddObject('2=Form2', Form2);
 
  ShowMessage(frms.Objects[frms.IndexOfName('1')].ClassName); // TForm1
  ShowMessage(frms.Objects[frms.IndexOfName('2')].ClassName); // TForm2

MyArr[0].form:=TFChat.CreateNew(Application);
MyArr[1].form:=TFChat.CreateNew(Application);
MyArr[2].form:=TFChat.CreateNew(Application);

if MyArr[1].form.Free<>nil then
begin
  ...
end;