Здравствуйте, Sergey Ten, Вы писали:

ST>Здравствуйте, SergIG, Вы писали:

SIG>>В TChildForm.FormClose только Action := caFree прописано.

ST>Нельзя ему сказать на FormClose

ST>

ST>  if Action <> caMinimize then 
ST>    Action := caFree 
ST>

ST>?

Подробнее:

При нажатии BorderIcons и закрытия и сворачивания на ActionMainMenuBar срабатывает событие OnClose:

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caNone;
end;

и в обоих случаях приходит Action=caMinimize


Если же нажать BorderIcons Restore на ActionMainMenuBar,а затем
1. BorderIcons закрытия уже на самой форме MDI окна, то срабатывает то же событие OnClose: с Action=caMinimize
2. BorderIcons сворачивания — событие OnClose НЕ СРАБАТЫВАЕТ!!!!

  if Action <> caMinimize then 
    Action := caFree

В данном случае, Action ВСЕГДА равно caMinimize на входе TChildForm.FormClose