Es muy simple pero para lo que necesito me vale, es lo siguiente:
Código Delphi
[-]
controlBar := TControlBar(Components[i]);
for j := 0 to componentCount -1 do
begin
if (Components[j].ClassType = TToolBar) then
begin
barra := TToolBar(Components[j]);
for k := 0 to controlBar.ControlCount - 1 do
begin
if barra.Name = controlbar.Controls[k].Name then