procedure TForm1.Collision;
var
  i: integer;              //pocet objektu
begin
  for i := 1 to 6 do begin
    if Xtrue[i] and Ytrue[i] and Ztrue[i] then begin
      X := PxLast[i];
      Y := PyLast[i];
      Z := PzLast[i];
    end;
  end;
end;