아래와 같이 한번 해 보세요~~

procedure TfrmChat.ListView1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
i: Integer;
UserList : TStringList;
begin
UserList:=Tstringlist.Create;
UserList.clear;
UserList.text:=UserLists(TreeView_group.Selected,'');
for i := 0 to UserList.Count-1 do
  if Treeview1.Items[i].Selected then
   with Listview1.Items.Add do
   begin
    Caption  := UserList.Strings[i];
    SubItems.add(table1.fieldbyname('ip').asstring);  ->적당히 알아서..
    SubItems.add(table1.fieldbyname('position').asstring);  ->적당히 알아서..
   end;
UserList.Free;
end;

Function TForm1.UserLists(Seltreelist :TTreeNode;ListStr:String):String;
var i : integer;
    ListS : string;
begin
   ListS:=ListStr;
   if Seltreelist.Count > 0 then
      begin
      for i:=0 to Seltreelist.Count-1 do
         begin
         if Seltreelist.Item[i].HasChildren then
            Lists:=UserLists(Seltreelist.Item[i],ListS)
         else
            ListS:=ListS+Seltreelist.Item[i].Text+#13+#10;
         end
      end
   else
      ListS:=TreeView1.Selected.Text;
   result:=ListS;

end;