I can't help with the bounty, but I can say that the code from my old docking suite may be of some help: http://www.eonclash.com/ViewProduct.php?ProductID=10

Granted it was for Delphi 3+, but I think in this case that might be an advantage.