[Neftali [Germán.Estévez]]

Prueba capturando mensajes tipo el CMEdit o CMDeactivate.

TWinControl, de la cual deriva TForm posee el CMExit:

Código Delphi [-]
procedure CMExit(var Message: TCMExit); message CM_EXIT;