selbsterstellte Canvas-Objecte sollen sich nicht überschneid

[Delphi-Noobie]

oki das klappt jetzt aber das sie sich nicht überscheieden immer noch nicht

Code:

constructor Thaus.create(a:Tform;zx,zy,zbreite:integer);
var g,n,m,o,p,s:integer;
begin
q[t]:=zx;
w[t]:=zy;
e[t]:=zbreite;

for s:=0 to 1024 do begin
  SetLength(b,s+1);
  SetLength(b[s],1025);
end;

for n:=zx to zx + zbreite do begin
for m:=zy - zbreite-(zbreite div 2) to zy do begin // wenn irgendein Pixel belegt, dann abbrechen
if b[n,m] = 1 then
exit;
end;
end;

for o:=zx to zx+zbreite do begin
for p:=zy- zbreite-(zbreite div 2) to zy do begin // soll alle Pixel die belegt sind durchlaufen und               
                                                  // den arraywert 1 setzen
b[o,p] := 1;
end;
end;
inc(t);
end;

Der Code klappt aber nicht er createt fröhlich überall hin wo er will, woran liegt das?