Click en minimizar ventana y minimizar aplicacion

[roman]

Empezado por dmassive

¿Alguna Sugerencia?

Tal como lo tienes debería funcionar, si acaso con una pequeña modificación:

Código Delphi [-]
procedure TForm2.WMSysCommand(var Msg: TMessage);
begin
  if (Msg.wParam and $FFF0 = SC_MINIMIZE) then
    Application.Minimize
  else
    inherited;
end;

De todas maneras, es extraño que quieras implementar este comportamiento para lo que parece ser el formulario principal, ya que, de hecho, es así como trabaja por defecto dicho formulario: minimizar la aplicación cuando se minimiza el formulario. El código descrito sería para otros formularios.

Quizá debas explicar mejor lo que quieres hacer.

// Saludos