BarItem := ActionManager1.ActionBars.Add;
BarItem.ActionBar := RGroup;

for K := 0 to ButtonNames.Count - 1 do
begin
  BarAction := BarItem.Items.Add;
  BarAction.Caption := ButtonNames[K];
end;