procedure Form1.Panel1MouseDown( usw...); 
const SC_DragMove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND,SC_DragMove,0);
  refresh;
end;

das Panel. Nun versuche ich das Gleiche in BCB mit

void __fastcall TForm1::Pane11MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  const int SC_DragMove = $F012; 

  ReleaseCapture;
  Panel1->Perform(WM_SYSCOMMAND,SC_DragMove,0);
  Refresh();
}

Komme leider nicht weiter, weil ich nicht weiß, wie ich einer
const int eine Hexzahl zuweise. Oder gibt es eine andere Lösung, um
eine Komp mit der Maus zu verschieben?
Schon jetzt, Danke für Antworten.
Gruß Egbert.

const int SC_DragMove = 0xF012;