Blok case of - Constant Expression expected

Witam :)
W swoim programie posiadam sterowanie za pomocą klawiszy zrealizowane blokiem case of. Chciałbym zaimplementować zmianę klawiszy sterowania w tym menu, więc robię zmienne dla każdego klawisza:

key_up:     word;
key_down: word;
key_left:   word;
key_right: word;

Wartości dla zmiennych wczytuję z pliku. Gdy w bloku case of zmieniam liczby na zmienne:

case key of
key_up:
          begin
            //operacje
          end;
key_down:
          begin
            //operacje
          end;
key_left:
          begin
            //operacje
          end;
key_right:
          begin
            //operacje
          end;

otrzymuję taki oto błąd: Constant Expression expected
Tutaj utknąłem, nie wiem jak to zrobić inaczej :(
Proszę o wskazówki :)

key_up i te trzy inne muszą być stałymi, jeżeli chcesz korzystać z konstrukcji case.

Już znalazłem rozwiązanie :) Dzięki :)

Więc użyj drabinek if-ów lub zmodyfikuj kompilator :P