1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

   for i:=0 to HIGH(ki) do begin
        if (ki[i].x = x div mapX) and (ki[i].y = y div mapY) then begin
          index:=i;
          break;
        end;
      end;
      ShowMessage(IntToStr(I));

      for i:=0 to HIGH(KI) do begin
        if i <> index then begin
          SetLength(k,high(k)+2);
          k[HIGH(K)]:=ki[i];
        end;
      end;

      SetLength(ki,0);
      SetLength(ki,high(k));

      for i:=0 to HIGH(KI) do begin
        ki[i]:=k[i];
      end;					

1:

for i:=zu_löschender_Index to länge_des_array-1 do Array[i]:=array[i+1];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TBO.DeleteBall(Index:Integer);
var
  i:Integer;
begin
  for i:=Index to HIGH(BALL)-1 do begin
    BALL[i]:=BALL[i+1];
  end;

  if HIGH(BALL)-1 >= 0 then
    SetLength(BALL,high(ball)-1);

  if HIGH(BALL) < 0 then
  ShowmEssage('OK');

end;					

1:

SetLength(HBALL, Length(HBALL)-1);