Teile einer beliebeigen Array lückenlos löschen

[Konny]

Hallo Leute,
Ich wollte mir für mein Programm mal eine kleine procedure schreiben, mit der ich aus jeder Array an einer beliebigen Stelle etwas rauslöschen kann. Es funktioniert auch fast, nur irgendwie kommt die Meldung Inkompatible Typen in der letzten Zeile. Kann mir jemand sagen, was ich falsch gemacht habe?
Vorher sei noch gesagt:
1. Ja, meine Formatierung ist....ähem...sagen wir unpraktisch....
2. Ich weiß, dass vielleicht schon jemand so einen Algorhythmus zur Perfektion gebracht hat und man sich diesen runterladen kann, mir gings aber ums Prinzip

Also hier der Quelltext:

Delphi-Quellcode:

procedure CutArray(Start,Finish:integer; var Arr:array of TObject);
var
a1:word;
begin
 if Start>Finish then Change(Start,Finish); //Change tauscht einfach die beiden Zahlen
 for a1:=Finish to High(Arr) do Arr[Start+a1]:=Arr[Finish+a1];
 SetLength(Arr, High(Arr)-(Finish-Start)+1);
end;

Ich hoffe, jemand von euch kann mir helfen, Danke im Vorraus!