Ещё правки VCL (10)

procedure TCustomFrame.AddActionList(ActionList: TCustomActionList);
var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  if Form <> nil then
  begin
    if Form.FActionLists = nil then Form.FActionLists := TList.Create;
    if Form.FActionLists.IndexOf(ActionList) = -1 then {V}
     Form.FActionLists.Add(ActionList);
  end;
end;