Form - minimizar aplicacao (nao mainform)

//minimizar a aplicacao minimizando um form secundario

unit Unit1; 

interface 

uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 

Dialogs, StdCtrls; 

type 

  TForm1 = class(TForm) 

    Button2: TButton; 

  private 

    procedure WMSysCommand(var Message: TWMSysCommand); 

message WM_SYSCOMMAND; 

  end; 

var 

  Form1: TForm1; 

implementation 

uses Unit2; 

{$R *.DFM} 

procedure TForm1.WMSysCommand(var Message: TWMSysCommand); 

begin 

if (Message.CmdType and $FFF0 = SC_MINIMIZE) then 

    Application.Minimize 

  else 

    inherited; 

end; 

end.