我用Delphi做过聊天室，其效果请看www.pptph.com.cn中的聊天室。
好想挣这分呀！但由于一些原因，我不能将源代码共享出来。
其实只用Delphi中的TWebModule类即可实现，其重要的属性就是Request，Response.
例如
if Request.QueryFields.Values['para'] = 'PostMsg' Then //
Response.Content := "<Html>Error</Html>" //此处是HTML的String
意思即为如果传进的参数papa的值是'PostMsg',则返回什么样的HTMl页面.
