Fehler: Constant expression expected

[fuisch]

Wenn ich meinen Code so schreibe bekomme ich in der markierten Zeile die Fehlermeldung "Constant expression expected":

Delphi-Quellcode:

procedure TStein.zeichne();
begin
  case Typ of
    0:
      Spielfeld.farbefestlegen(x,y,Farbe);
      Spielfeld.farbefestlegen(x+1,y,Farbe);  // hier ist der fehler
      Spielfeld.farbefestlegen(x,y+1,Farbe);
      Spielfeld.farbefestlegen(x+1,y+1,Farbe);

Schreibe ich dagegen

Delphi-Quellcode:

      //...
      with form1 do begin
        Spielfeld.farbefestlegen(x,y,Farbe);
        Spielfeld.farbefestlegen(x+1,y,Farbe);
        Spielfeld.farbefestlegen(x,y+1,Farbe);
        Spielfeld.farbefestlegen(x+1,y+1,Farbe);
      end;

funktioniert alles. Dabei ist es egal ob ich form1 schreibe oder irgendwas andres...

Spielfeld.farbefestlegen schaut so aus:

Delphi-Quellcode:

procedure TSpielfeld.farbefestlegen(x,y:byte;farbe:TColor);
begin
  with form1.Image1.Canvas do begin
    brush.Style:=bssolid;
    brush.color:=farbe;
    Rectangle(x*30,y*30,x*30+30,y*30+30);
  end;
end;