unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Generics.Collections,
  {Наша форма, которую будем создавать по КД}
  Unit2;

type
  TListForms = TObjectList<TForm>;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CloseOrderFunc(Form: TForm);
  private
    ListForms: TListForms;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CloseOrderFunc(Form: TForm);
var
  i: Integer;
begin
  i := ListForms.IndexOf(Form);
  if i <> -1 then
    ListForms.Delete(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  addForm: TForm2;
  Idx: Integer;
begin
  Idx := ListForms.Add(TForm2.Create(self)); // Добавим элемент в список
  with ListForms.Items[Idx] as TForm2 do // Редактируем сам элемент в списоке
  begin
    AddInfo(Idx, CloseOrderFunc);

    Caption := 'Заказ номер №' + (Idx + 1).ToString;

    show(); // Показать форму
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListForms := TListForms.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListForms.Free; // Список больше не нужен
end;

end.

unit Unit2;

interface

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

type
  TCloseOrderFunc = procedure(Form: TForm) of object;

  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    IndexListForm: integer;

    CloseOrder: TCloseOrderFunc;
  public
    procedure AddInfo(IndexListForm: integer; CloseOrder: TCloseOrderFunc);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.AddInfo(IndexListForm: integer; CloseOrder: TCloseOrderFunc);
begin
  self.IndexListForm := IndexListForm;
  self.CloseOrder := CloseOrder;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Заказ в списке номер №' + (IndexListForm + 1).ToString);
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Закрыть заказ? №' + (IndexListForm + 1).ToString, mtInformation, mbOKCancel, 0) = mrOK;
  if CanClose then
    CloseOrder(self); // Удаляем наш заказ из списка
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Generics.Collections,
  {Наша форма, которую будем создавать по КД}
  Unit2;

type
  TInfoRec = record
    self: TForm;
    str: string;
  end;

  TListForms = tdictionary<TForm, TInfoRec>;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CloseOrderFunc(Form: TForm);
  private
    ListForms: TListForms;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CloseOrderFunc(Form: TForm);
begin
  if ListForms.ContainsKey(Form) then
    ListForms.Remove(Form);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  v: TInfoRec;
  Idx: Integer;
begin
  Idx := ListForms.Count;
  v.self := TForm2.Create(self);
  v.str := 'Информация о заказе: №' + (Idx + 1).ToString;
  with v.self as TForm2 do
  begin
    AddInfo(Idx, CloseOrderFunc);

    Caption := 'Заказ номер №' + (Idx + 1).ToString;

    show(); // Показать форму
  end;
  ListForms.Add(v.self, v);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListForms := TListForms.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListForms.Free; // Список больше не нужен
end;

end.