Delphi World - Как вывести окно модальное для всех окон кроме одного

Как вывести окно модальное для всех окон кроме одного

Автор: Serge Buzadzhy

procedure ShowAlmostModal(FormModal:TForm);
begin
  NavigatorForm.Enabled := false;
  FormModal.ShowModal
end;

И вот это пpивесь на OnShow почти модальной фоpмы

procedure FormShow(Sender:Tobject);
begin
  NavigatorForm.Enabled := true;
end;