Problema con Toolbar, ToolButtons

[harpo]

Buenas gente,
estoy teniendo problemas con una Toolbar a la que agrego varios TooButtons con imágenes tomadas de una ImageList.
La idea que tengo es modificar la barra de tareas mostrando unos botones u otros según el frame que aparezca en pantalla. Para ello antes de hacer el cambio de pantalla pongo la propiedad Visible de todos los botones a false y luego, una vez ha cambiado de pantalla, a true los que correspondan.
Pues bien, la Toolbar se va al carajo añadiendo botones que no existen y ocultando otros . Si tienen que estar los botones 1, 2, 4 y 5, muestra 1, 2, 2, 6, 4 y 5 ¬¬.
Parece una tontería, pero le he dado mil vueltas y no veo modo de resolverlo... a ver si alguien me puede echar una mano.

Oculto los botones así:

  for i:=0 to ToolBar1.ButtonCount-1 do
  begin
    ToolBar1.Buttons[i].Visible:=false;

Y los muestro así:

 with frMain.frToolBar do
  begin
    boNewPatient.Visible:=true;
    boEditPatient.Visible:=true;
    boDeletePatient.Visible:=true;
    boNewStudy.Visible:=true;
    boEditStudy.Visible:=true;
    boEditStudy.Enabled:=true;
    boDeleteStudy.Visible:=true;
    boDeleteStudy.Enabled:=true;
    boCamera.Visible:=true;
    boPrint.Visible:=true;
    boBack.Visible:=true;    
  end;

Gracias por cualquier ayuda