Controlbar soll oben/ unten andocken beim hinschieben

[rennkuckuck]

Hallo,
ich habe folgendes Problem:
ich habe eine ControlBar (ControlBar.Autodock und Autosize sind jeweils True, Controlbar.DragKind/DragMode sind dkDock/dmManual) und da sitzt eine Toolbar drauf.
ich kann die Controlbar wunderbar hin und her schieben.
zum test habe ich mir mal einen button mit dem Befehl:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ControlBar1.ManualDock(Form1);
end;

end.

zum andocken gemacht.
nur dockt er die Controlbar mit der methode halt gerade auf der stelle am formular an wo sie gerade ist.
ich möchte es aber gerne so haben, dass er die controlbar oben andockt wenn ich sie zum beispeil oben an den formularrand schiebe oder links andockt wenn ich sie links hinschiebe. also dass er das merkt wenn ich zum bespiel oben an den rand komme und dann da andockt.
so wie das in word z.b. auch geht?
wie kann ich das machen???
danke schonmal für antworten
gruß rennkuckuck

[rennkuckuck]

habe eben noch was rausgefunden:
mit

Delphi-Quellcode:

 ControlBar1.ManualDock(Form1);

  controlbar1.Align := altop;

kann man machen dass die symbolleiste oben andockt.
jetzt müsste ich nur noch wissen WO drauf ich das event legen kann dass es aufgeführt wird wenn ich den oberen rand mit der controlbar berühre?????