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;

[m.wollert]

Delphi-Quellcode:

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:    begin
            stand := 0;
            Game(15);       //hier kommt der fehler jetzt hoffentlich nicht mehr ;)
          end;
    4:    begin
            stand := 1;
            Game(1);        //und hier kommt der fehler hoffentlich auch nicht mehr
          end;
  end;

Begin/End-Block vergessen ;-)

[schuetzejanett]

ja , danke das wars

[Cyberbob]

Codeblöcke immer mit begin beginnen und end; beenden!