Delphi-Quellcode:
if (Node1.ImageIndex = 0) and (Node2.ImageIndex <> 0) then
Result := -1
else if (Node2.ImageIndex = 0) and (Node1.ImageIndex <> 0) then
Result := 1
else if Data = 0 then
Result := AnsiStrIComp(Pchar(Node1.Text), PChar(Node2.Text))
else
Result := -AnsiStrIComp(PChar(Node1.Text), PChar(Node2.Text));
waren noch ein paar kleine Flüchtigkeitsfehler.
So passt es, vielen Dank
->> Problem solved