Rechtecke überlagern sich beim zufälligen erstellen ?

[mimi]

habe ich geändert überlappen sich leider immer noch teielweise:

Delphi-Quellcode:

function TForm1.CheckCollision(px,py,w,h,Index:Integer):Boolean;
var
  o:Boolean;
  z:Boolean;
begin
  o:=False; z:=False;

  z:=Kollision(rect(px,py,w,h));//GetItemIndex(px,py,w,h,index);
 // Label1.Caption:=IntToStr(py);
  Label3.Caption:='';
  if (px > 0) and (px < 640-w) and (py >0) and (((Items[index].isPlayer = True) and (py < 480)) or ((Items[index].isPlayer = False) and (py < 280)))then begin
    o:=True;
  end;
  if (z = True) then begin
    Label3.Caption:=IntToStr(px) + '\' + IntToStr(py);
    o:=True
  end
  else begin
//    Label3.Caption:=intToStr(z) + '*';
    o:=False;
  end;

//  else
//BoolToStr(o,True) + '\' + IntToStr(z) + '\' + InttoStr(Index)+'\'+ intToStr(high(Items))
  result:=o;
end;

Ja die Variabeln bennung fällt mir irgenwie noch nach ca 6-8 Jahren delphi programmiren sehr schwer *G*. Weil ich finde meistens keine passenden Namen für die Funktion/Procedure/Variable/Klasse die kurtzt beschreibt wo für es da ist.