Click en minimizar ventana y minimizar aplicacion

[dmassive]

Mi planteo era en base a toda la informacion que hay dando vueltas que no es clara, y los links hacia las soluciones son de paginas que ya no existen. Es por eso que intente abarcar todas las posibilidades para que no haya dudas... pero fallo

El planteo en imagenes era asi:

Cuando hago click en Minimizar:


La aplicacion queda asi:


Ese era el problema....

Pues tras probar he dado con el problema y es en la declaracion del procedimiento:

El codigo seria asi:

Código Delphi [-]
Procedure WMSYSCOMMAND(Var Msg: TMessage); Message WM_SYSCOMMAND;

Código Delphi [-]
Procedure TFormMain.WMSYSCOMMAND(Var Msg: TMessage);
Begin
  If Msg.wParam = SC_MINIMIZE Then
     Begin
          Application.Minimize;
     End
  Else
      Inherited;
End;

Ahora soy feliz... Gracias por responder.