Gestionar el evento OnMouseMove de la barra de titulo del Form

[aguml]

Lo siento pero me pierdo porque no tengo ni idea de delphi y aunque se parece pero me pierdo. Ahora mismo tengo esto:
En el .h:

Código PHP:

private:    // User declarations
   void __fastcall WMSysCommand(TWMSysCommand &Msg);
protected:
  BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, WMSysCommand)
  END_MESSAGE_MAP(TForm) 


En el .cpp:

Código PHP:

void __fastcall TFormHijo::WMSysCommand(TWMSysCommand &Msg)
{
   switch (Msg.CmdType) {
      case SC_MOVE:
         ShowMessage("Moviendo Form");
         break;
   }
   DefaultHandler(&Msg);
} 


Me interesaria mucho tu codigo pero para c++builder ya que antes de lo que estoy haciendo estuve intentando lo mismo que tu haces en tu codigo y lo consegui a medias.