1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

(* dein Fenster *)
Unit UMyForm;

Type
TMyForm = Class(TForm;

          end;

Type
  (* ein Array für die 5 Forms *)
  TMFAR = Array[1..5] of TMyForm;

.....
(* aus einer Mainform heraus die 5 Fenster erzeugen *)
Unit Main;

Type
  TMainForm = Class(TForm)
              MFAR : TMFAR;
              ....
              Procedure MakeMyForms;
              end;
.....

Procedure TMainForm.MakeMyForms;
Var i : Integer;
    l : Integer;
begin
  (* 5 MyForms erstellen *)
  l := 10;
  For i := 1 to 5 do begin
    MFAR[i] := TMyForm.Create(Self);
    MFAR[i].Left := l;
    MFAR[i].Show;
    l := l + MFAR[i].Width;
  end;
  
end;