Déplacer un item dans un TListView

Function MoveListViewItem(ListView : TListView; ItemFrom, ItemTo : Word) : boolean;
var
Source, Target : TListItem;
begin
result := false;
listview.items. begin update;
try
source := listview.items[ItemFrom];
target := listview.items.insert(ItemTo);
target.assign(source);
source.free;
result := true;
finally
listview.items.EndUpdate;
end;
end;

//déplace l'item 1 derrière l'item 4
procedure TForm1.Button1Click(Sender: TObject);
begin
// Listview1.ViewStyle := vsReport;
if MoveListViewItem(Listview1,1,4) then
ShowMessage('Moved!');
end;