Как в дочерней форме узнать о закрытии главной

[CruelAssembler]

Нужно сделать так, чтобы при закрытии дочерней формы без закрытия главной происходило что-то одно, а когда дочерняя форма закрывается из-за того, что была команда закрыть главную - что-то другое. Но OnCloseQuery дочерней формы вызывается раньше, чем главной! Как же определить, чем вызвано закрытие дочерней формы? Спасибо!

[Arigato]

Такой вариант: есть Unit1 (Form1) - главная и Unit2 (Form2) - дочерняя.
В Unit2 в разделе interface объявляем переменную:
MainFormShow: Boolean = False;
В Unit1 обрабатываем следующие события:

procedure TForm1.FormShow(Sender: TObject);
begin
  MainFormShow := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainFormShow := False;
    if Form2.Visible then Form2.Close;
end;

В Unit2:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MainFormShow
    then ShowMessage ('Главная открыта')
    else ShowMessage ('Главная закрыта');
end;

[CruelAssembler]

Спасибо, только что сам дотумкал. Просто в дочерней надо обрабатывать не OnCloseQuery, а OnClose - оно вызывается после OnCloseQuery главной.