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
end;
oviamente, ese código no es valido, pero creo que por ahí va. Lo estoy haciendo de memoria.
Saludo.