[[Chris]]

una humilde opinión de mi parte: ¿no sería mejor que utilizes TActionToolbar de una sola vez?

Puedes hacer un escaneado de los componentes en el toolbar y determinar si alguno se encuentra bajo del que intentas arrastrar, si se da el caso entonces muevelo.

Código Delphi [-]
For I := 0 to Toolbar1.ControlCount - 1 do
Begin
 if TWinControl(Toolbar1.Controls[i]).BoundsRect in MousePos Then
   IF Toolbar1.Controls[i] <> ControlArrastrado Then
  /// mover controles
end;

oviamente, ese código no es valido, pero creo que por ahí va. Lo estoy haciendo de memoria.

Saludo.