Toolbars Y MDIForms

[jorllazo]

Hola
Al final, me decidi por las Acciones y sustituir en el mainForm las acciones de los botones, me ha resultado este codigo:

Código Delphi [-]
procedure TGlobals.setRecordToolbarActions(aList: TActionList);
  var
    tb : TToolButton;
    begin
      tb := Application.MainForm.FindComponent('tbFirst') as TToolButton;
      tb.Action := aList.Actions[0] ;
      tb.ImageIndex := 0;
      tb := Application.MainForm.FindComponent('tbPrev') as TToolButton;
      tb.Action := aList.Actions[1];
      tb.ImageIndex := 1;
      tb := Application.MainForm.FindComponent('tbNext') as TToolButton;
      tb.Action := aList.Actions[2];
      tb.ImageIndex := 2;
      tb := Application.MainForm.FindComponent('tbLast') as TToolButton;
      tb.Action := aList.Actions[3];
      tb.ImageIndex := 3;
      tb := Application.MainForm.FindComponent('tbAdd') as TToolButton;
      tb.Action := aList.Actions[4];
      tb.ImageIndex := 4;
      .
      .
      .
      tb := Application.MainForm.FindComponent('tbFind') as TToolButton;
      tb.Action := aList.Actions[8];
      tb.ImageIndex := 8;
    end;

Se os ocurre otro modo mas eficiente?
he probado a usar FindChildControl. pero no me funciona ni a la de mil estoy con la version 2006 y lei en un post de Roman que no funcionaba igua a partir de la version 7.

Gracias.