Überschreibe diese Zeile doch einfach und lösch dann die letzte also:
Delphi-Quellcode:
For i:= ZULöschendeZeile to length(array) do
array[i]:=array[i+1];
setlength(array, length(array-1);
Müsstest du natürlich für mehrere Dimensionen anpassen, die Idee müsste aber klappen.
Erwarte das Beste und bereite dich auf das Schlimmste vor.