[harbor]

что то не хочет работать

Код:

procedure TForm1.menu1Click(Sender: TObject);
begin
  Form2:= TForm2.Create(Application);
Form2.Show;
Form2.ShowModal;
end;

пишет ошибку Cannot make a visible window modal