Закрытие дочерних MDI форм

[Armorer]

Спасибо всем, сам бы не додумался , сделал так:

  TfMain = class(TForm)
  private
    CloseProg: boolean;

    procedure CloseMessage(var Message: TMessage); message WM_CLOSE;
    procedure Close;

procedure TfMain.Close;
var
  i: integer;
begin
  CloseProg := MessageDlg('Вы уверены что хотите закрыть программу?', mtWarning, mbYesNo, 0) = mrYes;

  if CloseProg then
  begin

    for i := 0 to MDIChildCount - 1 do
      MDIChildren[i].OnCloseQuery := nil;

    inherited;
  end;
end;

procedure TfMain.CloseMessage(var Message: TMessage);
begin
  Close;

  if CloseProg then
    Message.Msg := WM_NULL;
end;

Так как метод Close статичный приходится еще обрабатывать сообщение WM_CLOSE чтобы одинаково работало при вызове close и при сообщении (например, оно приходит если крестик нажать).

Не уверен, что это лучший метод, но работает так как нужно. И без глобальных переменных