E2026 Constant expression expec

    for k := 0 to High(Kartove_pole[j]) do
      begin
        if (j=1) OR (j=3) then
          if pocet_kariet=k then
            C.Draw(sirka_kariet+(k-1)*60+80, vyska_kariet, Karticka.Karta[Kartove_pole[j,k]])
          else
            C.Draw(sirka_kariet+k*60, vyska_kariet, Karticka.Karta[Kartove_pole[j,k]])
        else
          if pocet_kariet=k then
            C.Draw(sirka_kariet, vyska_kariet+(k-1)*60+80, Karticka.Karta[Kartove_pole[j,k]])
          else
            C.Draw(sirka_kariet, vyska_kariet+k*60, Karticka.Karta[Kartove_pole[j,k]]);
    end;