Problem mit dynamischen array

[Schwabe]

Also jetzt klappts scho ziemlich gut. Es kommt jetzt nur noch manchmal beim Löschen zu einem "Fehler der Bereichsprüfung".Manchmal wird der Eintrag auch nicht aus der Listbox gelöscht. Manchmal gehts manchmal aber auch nicht. Was stimmt denn da noch net?

Edit:

Es klappt jetzt alles außer das es manchmal vorkommt, dass eine IEntrag nicht aus der Listbox gelöscht wird. Dadurch kommt es vor, dass er nen Fehler bringt weil er noch nen Eintrag in der Listox hat aber keinen im array. Da gibts noch irgendein Problem.

Delphi-Quellcode:

procedure TFunktionsgraph.BBEintragLoeschenClick(Sender: TObject);
var g,c: integer;
begin
  for c:= LBGezeichneteFunktionen.Items.Count-1 downto 0 do
  begin
    if LBGezeichneteFunktionen.Selected[c] then
    begin
      
      for g:= 0 to k do
      begin
        eingabe[0,g]:= eingabe[0,g+1];
        eingabe[1,g]:= eingabe[1,g+1];
        eingabe[2,g]:= eingabe[2,g+1];
        eingabe[3,g]:= eingabe[3,g+1];
      end;

      LBGezeichneteFunktionen.Items.Delete(c);

      SetLength(eingabe,4,laenge-1);
      k:= k - 1;
      laenge:= laenge - 1;

      Schaubild_Zeichnen;
    end;
  end;
end;

Wäre super wenn du mir noch wieterhelfen könntest.