高手帮忙!!!!网络聊天室连接问题?

本人依书上所太述设计了一个网络聊天室,使用Tclientsocket及Tserversocket两个类,代码编译通过,但是当客户端连接服务器端时出现连接失败,由于失败愿因无从检查,还请高手给指教.
连接失败信息由clientsocket的ClientSocketError事件发出,请问可能是由什么原因造成的,能给一段能成功连接的代码最好,如需查看源代码,请给我邮箱,我将发到邮箱,万分感谢!!!!!!!!!:)