TObjectList - Sort crash (D7)

[Angel4585]

ok und wann werden die items dann getauscht? wenn 1, 0 oder -1 als ergebnis ist?
Ich habe das Problem das ich zB diese Liste:

0
1
4
3
0
6
2

so sortiert haben möchte:

1
2
3
4
6
0
0

Edit: Aaahhh probieren geht halt doch über studieren

Delphi-Quellcode:

function CompareNextStart(Item1, Item2: Pointer): Integer;
begin
if(TMyItem(Item1).NextStart = 0)then Result:=1
else if(TMyItem(Item1).NextStart > TMyItem(Item2).NextStart)then Result:=1
else if(TMyItem(Item1).NextStart < TMyItem(Item2).NextStart)then Result:=-1
else Result:=0;
end;

so gehts