case of.. erwartet Ordinaltyp??

[Kuonrat]

Delphi-Quellcode:

  if (Modus = 'M') and (Verschl = false) then
    begin

    case Schluessel of
      3 : Schluessel := '9';
      5 : Schluessel := '21';
      7 : Schluessel := '15';
      9 : Schluessel := '3';
      11 : Schluessel := '19';
      15 : Schluessel := '7';
      17 : Schluessel := '23';
      21 : Schluessel := '5';
      23 : Schluessel := '17';
    end;

    for i := 1 to length(text) do
      begin

      if (ord(Text[i]) < 65) OR (ord(Text[i]) > 90) then
        ausgabe := ausgabe + Text[i]
      else
       begin

        wert := StrToInt(Schluessel) * (ord(text[i]) - 65 );
        wert := wert mod 26;
        kta := char(wert  + 65);
        ausgabe := ausgabe + kta;
       end;
      SetzeKlartext(ausgabe);
      end;

    end;

Ich programmiere gerade eine multipliaktive ENTschlüsselung und wandle alle Schluesseleingaben in die passende um, damit die Entschlüsslung auch funktioniert. Nun kommt bei "Case Of Schluessel" die Meldung:

[Fehler] uKryptool.pas(185): E2001 Ordinaltyp erforderlich

*shrug*