TControlBar

[TinkerBell]

Es muy simple pero para lo que necesito me vale, es lo siguiente:

Código Delphi [-]
//una vez encontrado el componente controlBar se lo asigno a una variable
controlBar := TControlBar(Components[i]);
//recorro los componentes de mi formulario y al encuentro una ToolBar(*)
     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
//(*) compruebo si el Name de este componente encontrado corresponde 
//con el nombre de algún componente del ControlBar
            if barra.Name = controlbar.Controls[k].Name then