ListView - Item und Subitems verschieben

[Tpercon]

Delphi-Quellcode:

NewItem := Items.Insert(anwelchepositionsolldas);
NewItem.Assign(CurrentItem);
CurrentItem.Delete;

CurrentItem ist das Item, was zu verschieben ist.