[nyushiki]

При создании главное формы некоторые подпункты компонента MeinMenu неактивны (в свойствах выставлено Enabled=False). Активен только пункт, при клике на который выдается модальное окно для ввода пароля. Предполагается, что после ввода правильного пароля и нажатия кнопки опять появится главная форма и неактивные ранее подпункты меню станут активными.
Что не так реализовано в части кода?

Код:

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.ModalResult:=mrOK;
Close;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Form3.ModalResult=mrOk then
if Edit1.Text = '1' then
begin
Form1.Show;
Form1.N6.Enabled:=True;
Form1.N7.Enabled:=True;
Form1.N8.Enabled:=True;
end;
end;

[icWasya]

Убрать Close

Код:

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.ModalResult:=mrOK;
//Close;
end;