content:=username+' 悄悄的对 '+speaktocbx.text+' 说：'+edit1.text+'secretspeak'
//可以看到悄悄话功能和说话对象的功能只是在字符串上的简单处理罢了
else
content:=username+' 对 '+speaktocbx.text+' 说：'+edit1.text;
chatserver.server.speakto(content,roomid);
edit1.clear;
end;
至此这个程序已经基本完善了，我们可以打包发布它，以免去最终用户配置dcom的麻烦。
