Show / Hide TRibbonPage

procedure TfrmUtama.ShowTabSheet(ATabsheets: Array of TRibbonPage);
var
  iii: Integer;
begin
  for iii := Low(ATabsheets) to High(ATabsheets) do
  begin
    Ribbon1.Tabs[ATabsheets[iii].Index].Visible := true; //false;
  end;
end;

//implementation;
if Helper.UserGroup = 1 then
ShowTabSheet([pgAdmin, pgKasir]);