SetArrayLength(SpellModes[SpellMode_Combat], GetArrayLength(Names));
  H := High(Names);
  for I:=0 to H do
  With SpellModes[SpellMode_Combat][I] do
  begin
    Name := Names[I];
    Level := Levels[I];
    Exp := Exps[I];
    AutoCast := (not InIntArray(AutoCasts, I));

    SetArrayLength(RequiredRunes, Length(ReqRunes[i]));
    SetArrayLength(RequiredRuneAmount, Length(ReqRuneAmt[i]));

    for ii := 0 to High(RequiredRunes) do
    begin
      RequiredRunes[ii] := ReqRunes[i][ii];
      RequiredRuneAmount[ii] := ReqRuneAmt[i][ii];
    end;
  end;