MDI Child форма в единственном екземпляре

[VVVadim]

Здравствуйте форумчане ...и тд. и тп.
вот пишу прогу ... Суть в чем, а в том что пункт меню создает MDI Child
форму. Проблема в том, что если нажать ~10 раз то будет 10 форм.
Помогите поставить ограничение. plzzzz

[Showy]

в родительской форме пишешь:

procedure TForm1.N11Click(Sender: TObject);
begin
if not OpenChild then
 Form2 := TForm2.Create(Form1);
end;

в дочерней:

...
var
  OpenChild:boolean = false;
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 openchild := false;
 action := cafree;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 openchild := true;
end;

[mihali4]

пункт меню создает MDI Child форму. Проблема в том, что если нажать ~10 раз то будет 10 форм.
Помогите поставить ограничение.

if [количество созданных окон]=[максимальное количество] then
[этот пункт меню].Enabled:=False else
[этот пункт меню].Enabled:=True;

[SunKnight]

главная форма

procedure TForm1.Button1Click(Sender: TObject);
begin
if form2=nil then
begin
form2:=TForm2.Create(Application);
form2.Visible:=true;
end;
end;

в ЧАИЛДЕ

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Form2.Free;
        form2:=nil;
end;

project ->Options-> fotm2 переносиш в Available Forms