Открыть и закрыть форму vcl

Сейчас у меня 2 формы. В Form1 я открываю Form2 следующим образом:

procedure TForm1.Action1Execute(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Form2);
  Form2.ShowModal;
  Form2.Free;
end;

Теперь я хочу закрыть Form2 с помощью кнопки. Итак, я попробовал

procedure TForm2.cancelBtnClick(Sender: TObject);
begin
  Form2.Close;
end;`

, но это выдает ошибку нарушения прав доступа только при нажатии этой кнопки. Что я делаю не так?

5
задан hs2d 7 May 2011 в 20:51
поделиться