Не сворачиваются окна

Unit1.h

protected:  // User declarations
    void __fastcall WndProc(TMessage& Message);

Unit1.cpp

void __fastcall TForm1::WndProc(TMessage& Message)
{

 if (Message.Msg == WM_SYSCOMMAND)
  if(Message.WParam == SC_MINIMIZE)
   {
    ShowWindow(Application->Handle, SW_MINIMIZE);
   }

 TForm::WndProc(Message);
}

Unit2.h
protected:  // User declarations
    void __fastcall WndProc(TMessage& Message);

Unit2.cpp

void __fastcall TForm2::WndProc(TMessage& Message)
{
 if (Message.Msg == WM_ACTIVATEAPP)
 {
  if (IsIconic(Application->Handle))
   {
    ShowWindow(Application->Handle, SW_RESTORE);
   }
 }

 if (Message.Msg == WM_SYSCOMMAND)
  if(Message.WParam == SC_MINIMIZE)
   {
    ShowWindow(Application->Handle, SW_MINIMIZE);


   }
 TForm::WndProc(Message);
}