Вот как это можно сделать в Delphi 7:

Unit2.pas:
## Код:
```
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    x: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Forms2: array [0..3] of TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Inc(x);
  Label1.Caption := IntToStr(x)
end;

end.
```


Unit2.dfm:
## Код:
```
object Form2: TForm2
  Left = 208
  Top = 201
  Width = 205
  Height = 185
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 32
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Button1: TButton
    Left = 32
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end
```


Project1.dpr:
## Код:
```
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2;

{$R *.res}

var
  i: Integer;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  i := 0;
  while i < 4 do begin
    Application.CreateForm(TForm2, Forms2[i]);
    Inc(i)
  end;
  Application.Run;
end.
```


При этом можно пользовать редактором форм.

Как сделать что-то похожее в BlackBox?