[BorodaOleg]

В программе открывается модальное окно (должно выполнять некоторую проверку, если все Ок, то закрыться, если нет, пользовытель выполняет нектороые действия). Делаю так:

Код:

Form1 
procedure TForm1.FormActivate(Sender: TObject);
begin
    Form2.ShowModal;
    FirstShow:=false;
end;

Form2
procedure TForm2.FormActivate(Sender: TObject);
begin
  Form2.ModalResult:=mrCancel;
  Form2.Close;
end;

MAD: Пользуемся тегами!

По всем законам физики Form2 должно закрываться. У меня на экране 2 окна ((((