Konstantenausdruck in case-Verzweigung erwartet

[Phil.I.Am]

Hiho... ich beschäftige mich im Moment damit einen kleines Mastermind spiel in Delphi zu schreiben. Ich bin noch nicht wirklich erfahren (2-3 kleine projekte), daher bitte die vielleicht etwas umständliche Programierung entschuldigen

mein problem ist folgendes: ich habe in meinem programm mehrer case-verzweigungen, um die farbeingabe des users mit der vom pc generierten farbabfolge zu vergleichen...

Delphi-Quellcode:

if  (i = 0) then
 begin //15
  lblFarbe1_1.Caption := cmbFarbe1.Text;
  case cmbFarbe1.ItemIndex of
  geheim[1] : a := (a+1); //hier
  geheim[2] : b := (b+1); //hier
  geheim[3] : b := (b+1); //hier
  geheim[4] : b := (b+1) //hier
  else c := (c+1);
  end;
  lblFarbe1_2.Caption := cmbFarbe2.Text;
  case cmbFarbe2.ItemIndex of
  geheim[2] : a := (a+1); //hier
  geheim[1] : b := (b+1); //hier
  geheim[3] : b := (b+1); //hier
  geheim[4] : b := (b+1) //hier
  else c := (c+1);
  end;
  lblFarbe1_3.Caption := cmbFarbe3.Text;
  case cmbFarbe3.ItemIndex of
  geheim[3] : a := (a+1); //hier
  geheim[1] : b := (b+1); //hier
  geheim[2] : b := (b+1); //hier
  geheim[4] : b := (b+1) //hier
  else c := (c+1);
  end;
  lblFarbe1_4.Caption := cmbFarbe4.Text;
  case cmbFarbe4.ItemIndex of
  geheim[4] : a := (a+1); //hier
  geheim[1] : b := (b+1); //hier
  geheim[2] : b := (b+1); //hier
  geheim[3] : b := (b+1) //hier
  else c := (c+1);
  end;
  lblergebnis1.Caption := 'Runde 1: '+inttostr(a)+' komplett Richtige, '+inttostr(b)+' Richtige und '+inttostr(c)+' Falsche.';
  end;

dies ist ein teil des programms... das habe ich insgesamt 8 mal, für acht runden in denen man seine kombination noch verändern kann. die variablen a, b, c und i sind als ganz normale integer deklariert...

die fehlermeldung ist folgende: "E2026 Konstantenausdruck erwartet" (fehler werden immer bei "hier" angezeigt

habe mich schon durch mehrere foren gesucht und auch eine mögliche ursache gefunden... dort hatte der programierer in seinem code ein end falsch gesetzt oder vergessen (bin nicht ganz sicher )... habe jdeoch jetzt schon 3 mal alle begins und ends geprüft und finde keinen fehler...

hätte jemand von euch eine idee? falls jemand den gesamten source-code möchte (der zu lang für einen einzigen beitrag wäre =P) bitte melden

lg Phil.I.Am