ListView - Item und Subitems verschieben

[Tpercon]

So, jetzt müßte es gehen:

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];
  LowerCase(tmp);
  if AnsiPos('eigene',tmp) <> 0 then
   with ListView1 do
    begin
     NewItem := Items.Insert(ListView1.Items.Count);
     NewItem.Assign(ListView1.Items.Item[i]);
     ListView1.Items.Item[i].Delete;
    end;
end;

Gruß