procedure TForm1.TBnewClick(Sender: TObject);
begin
  DM.ADOQInvoice.Append; 
  Btvi([19,21]);
end;    Procedure Tform1.Btvi(ar:array of integer);
var
 i:integer;
begin
 for i:=0 to Toolbar1.ButtonCount-1 do
   if not(i in ar) then    //这里会出错
     Toolbar1.Buttons[i].Enabled:=false
   else
     Toolbar1.Buttons[i].Enabled:=true;
end; 

Procedure Tform1.Btvi(AR : Array of Integer);
var
  I : Integer;
begin
  for I := 0 to Toolbar1.ButtonCount - 1 do
    Toolbar1.Buttons[I].Enabled := True;
  for i := Low(AR) to High(AR) do
    begin
      if ((AR[I] >= 0) and (ar[I] <= Toolbar1.ButtonCount -1)) then
        Toolbar1.Buttons[AR[I]].Enabled := False;
    end
end;