Arrastar o formulário

O código abaixo, que pode ser usado em qualquer componente que possua o evento OnMouseMove, serve para arrastar o formulário segurando pela área client. Interessante que podemos forçar o efeito drag até mesmo se o form estiver maximizado:

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(Shift.Contains(ssLeft))
    {
      ReleaseCapture();
      //Form1->WindowState = wsMaximized;
      Perform(WM_SYSCOMMAND, 61458, NULL);
    }
}