Fehler meldung Konstantenausdruck erforderlich?

[schuetzejanett]

hallo

rufe in einer prozedur eine andere auf die einen integerwert als pParameter hat jetzt bekomme ich aber den Fehler Konstantenausdruck erforderlich.
Wieso? Habe jetzt schon den Parameter als konstante definiert und trotzdem ändert es nichts ?
kann mir einer helfen?

Delphi-Quellcode:

procedure TForm1.butStartClick(Sender: TObject);

var i ,stand, n: integer;

begin
  Case rgArt.ItemIndex of
    0,1:  stand := 0;
    2:
            case gartx01.ItemIndex  of
                  0: stand := 201;
                  1: stand := 301;
                  2: stand := 501;
            end;
    3:    stand := 0;
          Game(15);       //hier kommt der fehler
    4:    stand := 1;
          Game(1);        //und hier kommt der fehler   
  end;
....

procedure TForm1.Game(const startvalue : integer);
var value,i : integer;
    field : TField;
begin
  value := startvalue ;
  field.anz := 0;

  for i:=0 to Anz-1 do
    begin
    while value < 22 do
      begin
        field.field := value;
        aspieler[i].field[(value-1)] := field;
        inc(value);
       end;
    end;
   end;