canvas random paint

[Informatik_Doppelstundler]

Hi. arbeite daserste mal mit canvas. soll jetzt ne figur (in diesem falle zur vereinfachunf nur ein rechteck) zufällig zeichnen lassen. dazu habe ich jetzt folgenden code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var x:integer;
var y:integer;
var Breite:integer;
var Hoehe:integer;
begin
 x:=random(450);
 y:=random(300);
 Breite:=x + random(120);
 Hoehe:=y + random(150);
 ImBild.Canvas.Rectangle(x,y,Breite,Hoehe);
end;

wenn ich jetzt auf button 2 (caption: RANDOM PAINT!) klicke, passiert gar nichts. warum?
ich habe mir schon gedacht, dass die zufallskoordinaten den punktes rechts unten möglicherweise kleiner sind, also über dem ausgangspunkt (x/y) liegen, deshalb habe ich halt

Delphi-Quellcode:

Breite:=[b]x[/b] + random(120);
 Hoehe:=[b]y[/b] + random(150);

eingebaut. bringt aber auch nichts