Hi!
Der Code ist eigentlich schon richtig. Aber als erstes solltest du ihn ordentlich formatieren!
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
x:integer;
y:integer;
Breite:integer;
Hoehe:integer;
begin
x:=random(450);
y:=random(300);
Breite:=x + random(120);
Hoehe:=y + random(150);
paintbox1.Canvas.Rectangle(x,y,Breite,Hoehe);
end;
Dann ruf im FormCreate "Randomize;" einmal auf, ansonsten schaut das Rechteck immer gleich aus!
Wenn es noch nicht geht, liegt es wohl an "ImBild". Was ist denn das für ein Typ/Komponente?