problem mit selbst erstellter Komponente

[Delphi-Noobie]

Hi,

ich hab nen Prog geschrieben, indem ein Image, was man selbst steuert nie über ein Control gelangen kann. Dabei übergibt die Controls, die nicht überschnitten werden soll in einem array an die Procedure. übergibt man jedoch eine selbst ertellte Komponente, die mehr als einmal created wurde klappt der Code nicht mehr. Wie kann man das beheben?

Code:

Procedure Ttest.leftcrash(T:array of Tcontrol); // linke seite des bildes soll nix überschneiden
var i:integer;
begin
for i:=0 to high(T) do begin
if (pic.Left < t[i].Left+t[i].Width+speedy) and //pic:Timage; speedy = speed des Bildes beim bewegen
   (pic.Left > t[i].Left+speedy) and
   (((pic.Top < t[i].Top+t[i].Height)and(pic.Top > t[i].Top))or
   ((pic.Top+pic.Height > t[i].Top)and(pic.Top+pic.Height < t[i].Top+t[i].Height))or
   (pic.Top < t[i].Top)and(pic.Top+pic.Height>t[i].Top+t[i].Height)or
   (pic.Top = t[i].Top))
   then aa[i]:=true else aa[i] := false; // aa:array of boolean -> true = überschneidet sich

if (pic.Left - (t[i].Left+t[i].Width) < speedy) and  //Formularränder nicht verlassen
   (pic.Left - (t[i].Left+t[i].Width) > 0) then
   pic.Left := t[i].Left+t[i].Width;
end;
end;

wenn ich jetzt zum Beispiel als Array das übergebe:

Code:

var z:array of Tcontrol;
    bb:Tshape;
begin
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(200,30,50,20);
bb.Show;
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(250,30,50,20);
bb.Show;
setlength(z,3);
z[0]:=shape1;
z[1]:=shape2;
z[2]:=bb;
end;

dann erkennt er nur shape1, shape2 und das 2. bb, das 1. wird ignoriert. Wie kann ich das verhindern?