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

Procedure TToolSet.DeleteField(var DynArray: array of string; Index: Integer);
var
 i : Integer;
begin
 if (Index > -1) and (Index < Length(DynArray)) then   // Index muss größer als -1 und max. genauso groß wie das letzte Feld im Array sein.
 begin
  if Index<Length(DynArray)-1 then                     // Wenn Index kleiner als Letztes Feld im Array
   for i := Index to Length(DynArray)-2 do
    DynArray[i] := DynArray[i+1];
  setLength(DynArray,Length(DynArray)-1);             // <- Fehler
 end;
end;					

1:
2:
3:
4:
5:
6:

type
  TStringArray = Array of String;

(* ... *)

Procedure TToolSet.DeleteField(var DynArray: TStringArray; Index: Integer);