Hola,
Poco elegante parece, y es probable que exista otro modo, pero, a mí se me ocurre este a bote pronto, y lo expongo por si sirviera de algo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
nItem: TListItem;
begin
nItem := ListView1.Items.Insert(2);
nItem.Caption := ListView1.Items[0].Caption;
for i := 0 to ListView1.Items[0].SubItems.Count-1 do
nItem.SubItems.Add(ListView1.Items[0].SubItems[i]);
ListView1.Items[0].Delete;
end;