Rechtecke und Probleme =(

[finalgott]

Also der code sieht nun so aus:
Und ich möchte das er ein Rechteck immer von oben links nach unten rechts zieht

Delphi-Quellcode:

var
  Form1: TForm1;
  a1,a2,a,aa,x2,y2:integer;

implementation

{$R *.dfm}



procedure zeichneRechteck(canv: Tcanvas; x1, y1,x2,y2: integer; farbeRand:Tcolor);
  const dicke = 3;
begin
  with canv do Begin
    Pen.Width := dicke;
    Pen.Color := farbeRand;
    Brush.Style := bssolid;
    Pen.Mode:=pmNotXor;
    x1:=random(200);
    y1:=x1;
    x2:=random(200);
    y2:=x2 div 2;
    Rectangle (x1 -dicke, y1-dicke, x2-dicke, y2 - dicke);
    a:=x1;
    aa:=y1;
    a1:=x2;
    a2:=y2;

   End
end;


procedure TForm1.Button1Click(Sender: TObject);
 var w, h,w2,i,n:integer;
begin
randomize;
n:=strtoint(form1.Edit1.text);
sg1.ColCount :=2;
sg1.RowCount :=n+1;
for i:=1 to n do begin
with image1 do begin
        zeichneRechteck(image1.canvas,a, aa, a1,a2,clgray);
                label1.Caption:= Format('%d, %d, %d, %d', [a, aa, a1, a2]);
end;
                sg1.Cells[0,i]:=inttostr(a)+(',')+inttostr(aa);

                        sg1.Cells[1,i]:=inttostr(a1+a)+(',')+inttostr(a2+aa);
end;
end;
end.