[DELPHI] Intercettare chiusura di Form

[FSL]

In un caso simile, avevo risolto con una sola riga di codice per ogni form...

sulle form secondarie alla chiusura invio un messaggio alla MainForm:

    // Form1.FormClose:
  SendMessage (MainForm.Handle, WM_USER, 1, 0);

  // Form2.FormClose:
  SendMessage (MainForm.Handle, WM_USER, 2, 0);

  ....

  // Form30.FormClose:
  SendMessage (MainForm.Handle, WM_USER, 30, 0); 

Sul MainForm ho un dispatcher dei messaggi:

private
    procedure WMformClose (var msg : TMessage); message WM_USER;

implementation;

procedure TMainForm.WMformClose (var msg : TMessage);
var
  FormClosed: integer;
begin
  FormClosed:= msg.wParam;
  case FormClosed of
    1: 
    2:
    // ecc...
  end;
end; 

Ciao
FSL