Werte aus dynamischen array löschen

[jupiter4065139]

ich hab das mal probiert nach
http://www.delphi-treff.de/tipps/obj...ecke-entsteht/

Delphi-Quellcode:

If (median[FS.Position].Zeit > 0.1 and median[FS.Position].Zeit < 0.2) then
             
begin

move(median[fs.position+1], median[fs.position], sizeOf(median[0])*(Length(median) - fs.position - 1));
                setlength(median, length(median)-1);

end;

Da werden aber in den Bereich nur "0" geschrieben. Das Problem liegt IMHO daran das fs.position als byte deklariert sind, oder? Die Daten aus der Datei werden als smallint ausgelesen, d.h. wenn ich mir fs.position anzeigen lasse wird immer um 2 byte erhöht.

Wenn ich jetzt fs.position als Index nehme geht das denk ich nich. Wie mach ich denn das dann am besten?