Panels mit Drag&Drop zweispaltig beliebig setzen

[MarLe]

Um 3 Panels auszurichten wurde im Forum folgendes vorgeschlagen.

Auf dem Hauptpanel (pan_main) liegen 3 Panels (pan_1, pan_2, pan_3), die alle mit alTop ausgerichtet sind.
siehe auch http://www.delphipraxis.net/internal...=panel+panmain

Prinzipiell so:

Delphi-Quellcode:

TForm1 = class(TForm) 
    pan_main: TPanel; 
    Pan_1: TPanel; 
    Pan_2: TPanel; 
    Pan_3: TPanel; 
    procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
  private 
    { Private-Deklarationen } 
    FY: Integer; 
  public 
    { Public-Deklarationen } 
  end; 
Implementation 
procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  If ssLeft in Shift 
  Then Begin 
    If Y<>FY 
    Then begin 
      (Sender As TPanel).Top:=Y; 
      pan_main.Refresh; 
      FY:=Y; 
    End; 
  End; 
end;

Die Methode PanelMouseMove den drei Panels als OnMouseMove zuweisen.

Funktioniert, ich suche jetzt einen Lösungsansatz um sowas zweispaltig zu realisieren.
d.h. zusätzlich noch 3 Panels (pan_4, pan_5, pan_5) daneben.