Wie gesagt, ich habe zwar nicht viel Ahnung von ListViews, aber wenn ich mir den Code so anschaue, müsste man ihn noch vereinfachen können:
Delphi-Quellcode:
Var S : String;
I : Integer;
begin
S := lvTermine.Items[lvTermine.ItemIndex].Caption;
I := 0;
//Sortierung
while S <> lvTermine.Items[I].Caption do Inc(I);
lvTermine.ItemIndex := I;
End;
Da sparst du dir dann eine Variable !
Gruß, Martin