ListView - Item und Subitems verschieben

[THE MATRIX]

hmm dass will nicht wirklich ... hier mal der source

Delphi-Quellcode:

var
 I:Integer;
 tmp:string;
 NewItem : Tlistitem;
begin
for I := 0 to ListView1.Items.Count-1 do
 begin
  tmp := ListView1.Items.Item[i].SubItems.Strings[0];
  Delete(tmp,7,Length(tmp));
  LowerCase(tmp);
  if tmp = 'eigene' then
   with ListView1 do 
    begin
     MoveSelection(ListView1);
     NewItem := Items.Insert(ListView.Items.Count-1);
     NewItem.Assign(ListView1.Items.Item[i]);
     ListView1.Items.Item[i].Delete;
    end;
 end;

Also in der listview sind mehrer Items und Subitems wenn das Subitem mit "eigene" anfängt soll DIESE item + subitems ans ENDE der listview gackt werden.
BSP. DER LISTVIEW:
Column 1 | Column 2 | Column 3
blabla | lustiges | blabla...
bla | eigene bilder| blabla...
lil | blblbl | blabla...

so jetzt soll halt die Komplette 2 Zeile ans Ende verschoben werden ....