tems.Add(Inputstring);
　　　　　　ListBox1.ItemIndex:=0;
　　　　　end;
　　procedure TForm1.Button2Click(Sender: TObject);
　　　begin file://删除当前选中的网友，但"大家"不能被删除.
　　　　if ListBox1.ItemIndex<>0 then ListBox1.Items.Delete(ListBox1.ItemIndex);
　　　end;
　　end.
　　这样，一个简单的聊天工具就做好了，只要双方同时运行本程序，且将对方的计算机名称或IP地址加入到网友中即可实现实时聊天了,一个属于自己版权的聊天程序，就这样编写成功了。当然，你可以增加更多的内容，使程序更加的完善，以求更多的功能。