1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

if New = 1 then
    begin
      FNew[Count] := TFNew.Create(FMain);
      FNew[Count].Show;
      FNew[Count].Caption := 'FNew[' + IntToStr(count) + ']';
      posx := FNew[Count].Left;
      posy := FNew[Count].Top;
      Inc(count);
      Inc(New);
    end
  else
    begin
      FNew[Count] := TFNew.Create(FMain);
      FNew[Count].Caption := 'FNew[' + IntToStr(count) + ']';
      posx := posx + 20;
      posy := posy + 30;
      SetWindowPos(FNew[count].Handle, HWND_TOP, posx, posy, FNew[count].Width, FNew[count].Height, SWP_SHOWWINDOW);
      ShowWindow(FNew[count].Handle, SW_SHOWNORMAL);
      Inc(count);
      Inc(New);
    end;					

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:

procedure TForm1.Button1Click(Sender: TObject);
var
  count,x,y : Integer;
  Memo : TMemo;
begin
  count := Length(New);
  Setlength(New, count+1);
  New[Count] := TForm.Create(SELF);
  With New[Count] do begin
    BorderStyle := bsSingle;
    if Count > 0 then begin
      x := New[Count-1].Left + 20;
      y := New[Count-1].Top + 20;
    end else begin
      x := 0; y := 0;
    end;
    SetBounds(x,y,250,150);
    Caption := 'New '+ IntToStr(count);
    Show;
  end;

  Memo := TMemo.Create(New[count]);
  With Memo do begin
    Parent := New[Count];
    SetBounds(0,0,100,100);
    Show;
  end;
end;