Warum werden zwei elemente gelöscht ?

[Mario]

So sollte es gehen:

Delphi-Quellcode:

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

High ergibt bereits das letzte Element!