Создание дочерных форм

[Vladya]

Приветствую форумчане!
Проблема следующая: есть основная форма (или родительская) на форме расположена кнопка и листбокс. Вопрос: как создать дочерное окно при нажатии на кнопку, а название этого окна занеслось в листбокс, при этом создать на этой форме (дочерной) те компоненты которые необходимы, и количество создаваемых дочерных окон не должно быть ограниченным?
Дальше хуже, надо что бы, если мы закроем созданное окно то при двойном нажатии на его название в листбоксе это окошко опять появлялось....
Подскажите пожалуйста что да как если это возможно.
Раньше с таким не сталкивался, всегда создавал формы через file-new-form ставил fjrmstyle-MDIChild и все дочерные потом убирал из автосоздания через project-options а потом при выполнении просто создавал их когда они нужны, но тут другое, обязательное условие что заранее не известно сколько форм будет создано....
Заранее всем огромное СПАСИБО!!!

[Аватар]

Создание Form2 убери из dpr

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var xForm2: TForm2;
begin
  xForm2:=TForm2.Create(Application);
  xForm2.Caption:=xForm2.Name;
  ListBox1.Items.AddObject(xForm2.Name,TObject(xForm2));
  xForm2.Show;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var i: Integer;
begin
  if ListBox1.ItemIndex>=0 then TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).Show;
end;

end.



unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caHide;
end;

end.