Warum werden zwei elemente gelöscht ?

[mimi]

Hallo,

Code:

var
  i:Integer;
begin
  if HIGH(ball) -1 > 0 then begin
    for i:=Index to HIGH(BALL) do
      BALL[i]:=BALL[i+1];
    SetLength(BALL,high(ball)-1 );
  end;

ich dachte mir: das ich einfach von index bis array größe gehe und dabei alle elemente um eins nach vorne schiebe und anschließend denn array verkleiner, das geht auch, nur werden, dann immer zwei elemente gelöscht und ich weiß nicht warum !!!