Sorry, habe nich nie mit ListView gearbeitet...
Aber theoretisch müsste das dann so gehen:
Delphi-Quellcode:
var s: TListItem; i: Integer;
begin
s:=ListView1.Items[ListView1.ItemIndex];
//sortieren
i:=0;
while s<>ListView1.Items[i] do Inc(i);
ListView1.ItemIndex:=i;
end;