Panel mit Inhalt verschieben

[Dellphi]

Hallo!

Ich habe ein (Haupt-)Panel, worauf BitButtons, ein SpineditFeld und 2 weitere Panels liegen.

Diesen ganzen Dinge möchte ich auf einmal verschieben

Ich kann aber bisher immer nur eins (zum Beispiel das Hauptpanel) verschieben.

Dazu benutzte ich den volgenden Code:

Code:

procedure TForm4.ToolPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if ssLeft in Shift then
    begin
      ReleaseCapture;
      Toolpanel.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;

Wie kann ich aber nur durch Verschiebung des Hauptpanels alle anderen Dinge (siehe oben) auch mit verschieben? Sie sollten auch nach dem Verschieben auf ihrer Position auf dem Hauptpanel wieder so sein wie vorher.

Vielen Dank im Voraus!