Form - Detectar Minimize, Maximize ou Restore

// DETECTAR se o form está minimizando ou restaurando:

  private

    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);

begin

  case Msg.CmdType of

    SC_MINIMIZE : Application.Title := 'MIM';

    SC_MAXIMIZE : Application.Title := 'MAX';

    SC_RESTORE  : Application.Title := 'RES';

  end;

  inherited;

end;