Как на кнопку свернуть назначить свое действие?

// in Form's header...
void __fastcall WMSysCommand(TMessage &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, WMSysCommand)
END_MESSAGE_MAP(TForm)
//---------------------------------------------------------------------------
// in Form's source...
void __fastcall TForm1::WMSysCommand(TMessage &Msg)
{
  unsignedint sys_code = Msg.WParam & 0xFFF0;
  switch (sys_code) {
    case SC_MINIMIZE: {
      // minimize command requested
      // TO TRAP: comment out the following two lines,
      // and remove the break line.
      // Msg.Result = 0;
      // return;
      break;
    }
    case SC_MAXIMIZE: {
      // maximize command requested
      // TO TRAP: comment out the following two lines,
      // and remove the break line.
      // Msg.Result = 0;
      // return;
      break;
    }
  }
  TForm::Dispatch(&Msg);
}

[BCC32 Error] Unit1.cpp(19): E2092 Storage class 'virtual' is not allowed here
[BCC32 Error] Unit1.cpp(21): E2283 Use . or -> to call '_fastcall TObject::Dispatch(void *)'

void __fastcall WMSysCommand(TMessage &Msg);
BEGIN_MESSAGE_MAP // Storage class 'virtual' is not allowed here
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, WMSysCommand)
END_MESSAGE_MAP(TForm); //  Use . or -> to call '_fastcall TObject::Dispatch(void *)'

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
 
    Action=caNone;
    ShowMessage ("Привет");
}

[BCC32 Error] Unit1.cpp(22): E2034 Cannot convert 'int' to 'TBasicAction *'