Ich brauche Hilfe. Bitte keine blöden Antworten! Für Gute gibts nen Stern!

Ich weiß nciht genau,was ich falsch gemacht hab, aber es geht nicht.

Ich programmiere in Delphi in Lazarus. Danke!

TForm1 = class(TForm)

BZeichnen: TButton;

Beenden: TButton;

Image1: TImage;

procedure BZeichnenClick(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ private declarations }

procedure HausZeichnen(x,y: integer);

public

{ public declarations }

end;

var

Form1: TForm1;

i:integer;

implementation

{ TForm1 }

procedure TForm1.HausZeichnen(x,y: integer);

begin

Image1.Canvas.MoveTo(x,y);

Image1.Canvas.LineTo(x+50,y);

Image1.Canvas.LineTo(x+50,y-50);

Image1.Canvas.LineTo(x,y-50);

Image1.Canvas.LineTo(x,y);

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

end;

procedure TForm1.BZeichnenClick(Sender: TObject);

begin

for i:=1 to 2 do begin

HausZeichnen(xStart,100);

xStart:=xStart+100;

end;

end;

Es wird gemeckert, dass:

HausZeichnen(xStart,100);

xSTart:=xStart+100;