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

      DirectLoad := 
      FindNearest(Point(
      - Form1.Left + CurrentCursorPosition.X - 178,
      - Form1.Top + CurrentCursorPosition.Y - 14)); // Der Index des nächsten Punktes wird gesucht.

      Dispose(MapInfo[DirectLoad]); // Ich gebe den Speicher dieses Punktes frei.
      // Nun sollen die Zeiger ab diesem immer dorthin zeigen, wo der nächste hinzeigt.
      for Index := DirectLoad to Length(MapInfo) - 2 do
        begin
        MapInfo[Index] := MapInfo[Index + 1];
        end;
      // Dann zeigt der sowohl der vorletzte als auch der letzte auf das selbe Objekt. Deswegen können wir den letzten pointer löschen:
      SetLength(MapInfo, Length(MapInfo)-1);
      // Hier versuche ich die Indexe zu reparieren.
      FixArrayItems(DirectLoad);
      end;					

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

procedure FixArrayItems(N: Byte);
var i,j: integer;
begin
for i:= 0 To Length(MapInfo)-1 do // alle Elemente durchgehen.
  begin
  j := Length(MapInfo[i]^.ConnectedTo)-1; // durch das array mit den indexen der verbundenen Punkte gehen.
  while j>=0 do
    begin
    // Wird auf den Punkt gezeigt der zerstört wurde, soll das Array gekürzt werden.
    if MapInfo[i]^.ConnectedTo[j] = N then
      DeleteArrayItem(MapInfo[i]^.ConnectedTo, j)
    else
    // Ist der Index größer soll der Index um 1 verringert werden.
      if MapInfo[i]^.ConnectedTo[j] > N then
      MapInfo[i]^.ConnectedTo[j] := MapInfo[i]^.ConnectedTo[j] - 1;
    j:=j-1; // Nächste Verbindung.
    end;
  end;
end;					

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

procedure DeleteArrayItem(var A: TXArray; const Index: integer);
var
  ALength: cardinal;
  TailElements: cardinal;
begin
  ALength := Length(A);
  Assert(ALength > 0);
  Assert(Index < ALength);
  TailElements := ALength - Index;
  if TailElements > 0 then
    Move(A[Index + 1], A[Index], SizeOf(TLabel) * TailElements);
  SetLength(A, ALength - 1);
end;					

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

procedure DrawPoints();
var i, j: integer;
begin
with Form1.AdDraw.Canvas do
  begin
  // Set Canvas
  Pen.Color := NewColor;
  Brush.Style := absolid;
for i:= 0 to Length(MapInfo)-1 do
  begin
  for j := 0 To Length(MapInfo[i]^.ConnectedTo)-1 do
    Line(MapInfo[i]^.X + 174 + 3 + random(2), MapInfo[i]^.Y + 14 - 1 + random(2),
         MapInfo[MapInfo[i]^.ConnectedTo[j]].X + 174 + 3 + random(2),
         MapInfo[MapInfo[i]^.ConnectedTo[j]].Y + 14 - 1 + random(2));
  if MapInfo[i].PlayerPoint <> 0 then
    Textout(MapInfo[i]^.X + 174 - 1, MapInfo[i].Y + 14 - 8, IntToStr(MapInfo[i].PlayerPoint))
  else
    Rectangle(MapInfo[i]^.X + 174 + 2, MapInfo[i]^.Y + 14 - 2,
              MapInfo[i]^.X + 174 + 6, MapInfo[i]^.Y + 14 + 2);
  end;

  // Reset Canvas
  Pen.Color := BlackColor;
  Brush.Style := abclear;
  end;
end;					

1:
2:

  if TailElements > 0 then
    Move(A[Index + 1], A[Index], SizeOf(TLabel) * TailElements);