Tlist - Probleme

[r3v0]

Hallo zusammen,

Ich habe ein Problem mit der Sortierung einer meiner TLists.

Und zwar will ich sie nach 4 verschiedenen kriterien sortierne.
3 klappen eins nicht.

Edit: Das erste Also Text Aufsteigend Klappert nicht!!!!!

Sieht einer evtl den fehler?

Delphi-Quellcode:

function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(Inhaltcsvdateikaputt(Item1).Bildname, Inhaltcsvdateikaputt(Item2).Bildname);
end;

function CompareTextDown(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText( Inhaltcsvdateikaputt(Item2).Bildname, Inhaltcsvdateikaputt(Item1).Bildname);
end;

function CompareBetrag(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item1).Betrag - Inhaltcsvdateikaputt(Item2).Betrag);
end;

function CompareBetragDown(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item2).Betrag - Inhaltcsvdateikaputt(Item1).Betrag);
end;

procedure Tfrminhaltcsv.RadioGroup1Click(Sender: TObject);
begin
  sortlistefalsch;
end;

procedure Tfrminhaltcsv.sortlistefalsch;
begin
   case RadioGroup1.ItemIndex of
      0 : lst.Sort(@CompareText);
      1 : lst.Sort(@CompareTextDown);
      2 : lst.Sort(@CompareBetrag);
      3 : lst.Sort(@CompareBetragDown);
   end;
   fuelleGridFalsch;
end;