OnDblClick::
var
  mylistnode: TListItem;
begin
  mylistnode := listview2.Items.Add;
  mylistnode.SubItems.Add(treeview1.selected.Text)
end;