Jak przesunąć item w TListView?

Co zrobić by po naciśnięciu buttona przesunąć zaznaczony item w TListView w górę lub w dól o jedno miejsce?

kiedys uzywalem takiego sposobu

procedure TForm1.Button1Click(Sender: TObject);
var a: byte;
b: string;
e: TListItem;
begin
a:=ListView1.ItemIndex;
b:=ListView1.Items[a+1].Caption;
ListView1.Items[a+1].Delete;
e:=ListView1.Items.Insert(a);
e.Caption:=b;
end;

A co jeśli w TListItem mam kolumny? Znikają mi dane z subitemów :/

Ostatnio dodałem taką wskazówkę, jeszcze nawet na głównej w Nowościach wisi ;)

Jak przesunąć pozycję w komponencie ListView

Dzięki piękne, wszystko tak jak ma być!

A gdzie skrucha przed lenistwem?

Ps. Pytam poważnie.

Wskazówka była dodana po tym jak napisałem temat na forum :P
Przedtem szukałem porady na ten temat i to nie tylko w tym serwisie. Dopiero jak nic nie znalazłem napisałem na forum.