Click en minimizar ventana y minimizar aplicacion

[dmassive]

Buenos Dias!

Estoy con Delphi 7 y en el foro no esta claro como hacer esto, ni siquiera si es posible, por lo cual, y ante varias pruebas... ¿No se puede hacer?

Veamos, hago click en el minimizar de la ventana de un formulario y quiero ejecutar:

Código Delphi [-]
Application.Minimize;

Pero no se como llamarlo.

Pues bien, no quiero verme obligado a añadir un boton para lograrlo. Y TApplicationEvents no me sirve puesto que esos eventos son de la aplicacion y yo necesito un "OnMinimize" del formulario.

Tambien probe esto pero tampoco funciona

Código Delphi [-]
Procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.wParam = SC_MINIMIZE then
     begin
       application.Minimize;
     end
  else
     Inherited;
end;

¿Alguna Sugerencia?

Gracias!