TListView ustawianie kolejnosci itemow

na forum znalazlem 3 posty dotyczace TListView i darg&drop
niestety zadne nie rozwiazal mojego problemu

potrzebuje zrobic ustawianie kolejnosci itemow w listview wg uzytwoknika
np domyslnie wyswietli sie

aaa bbb ccc

i chce by uzytkownik mogl przesuwac sobie ta kolejnosc

prosze pomoc :)

albo zaproponowac inne rozwiaznia ktore umoliwia uzytkownikowi ustawic jakie i w jakiej kolejnosci maja sie pokazac na wydruku kolumny z bazy danych

var
  Ascending: boolean;

function SortByColumn(Item1, Item2: TListItem; Data: integer): integer; stdcall;
begin
 if Data = 0 then Result := AnsiCompareText(Item1.Caption, Item2.Caption)
 else Result := AnsiCompareText(Item1.SubItems[Data-1], Item2.SubItems[Data-1]);
 if Result < 0 then
   begin
    if Ascending then Result := -1
    else Result := 1;
   end
 else
 if Result > 0 then
   begin
    if Ascending then Result := 1
    else Result := -1;
   end;
//zatrzymuje kolejne sortowanie dla kolumny:  if not Ascending then Result := -Result;
end;

procedure TForm1.ListViewColumnClick(Sender: TObject; Column: TListColumn);
begin
 Column.Tag := 1 - Column.Tag;
 Ascending := Column.Tag = 1;
 TListView(Sender).CustomSort(@SortByColumn, Column.Index);
end;