【搞定】调用出错！[问题]**

YZQH

在业务信息层写了一个过程
procedure TINFOFAQ.setToolBar(AToolBar: TCustomBizToolBar;AIndex: array of Integer);
var i : integer;
begin
if AIndex.Length > 0 then
begin
for i := 0 to AIndex.Length do
   begin
    AToolBar.Controls[AIndex].Enabled := false;
    AToolBar.Controls[AIndex].Visible := false;
   end;
end;
end;
在功能中调用
procedure TMainForm.BizFormShow(Sender: TObject);
begin
infofaq.TINFOFAQ(info_faq.info).setToolBar(FlowBar,[0,2]);
end;
会出错，提示如图

YZQH

结帖，解决。