Panel via Image verschieben

[hedie]

Hallo

Ich möchte ein Panel auf einer Form mit der Maus Verschieben Lassen, das klappt auch ganz gut mit dem MouseDown Event und diesem Code

Delphi-Quellcode:

  // Mausereignisse abfangen
  ReleaseCapture;
  // mit TWinCotrol verschieben, $F012 verschiebt den Button
  TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);

Doch auf dem Panel befindet sich ein Image und dieses Füllt fast das Ganze Panel
Nun möchte ich, dass man auch wenn man das Image "verschiebt" (anklicken und ziehen) das Panel Verschoben wird.

Wie muss ich das machen?

Wielen Dank

Grüsschen
Claudio