求TIdTCPServer连接方法。

[ynquan]

我用TIdTCPServer做了文件接收程序。
在第一次打开程序时候没有问题当IdTCPServer1->Active=false;后在把设置成IdTCPServer1->Active=true；
问题就有下面错误。
Could not bind socket. Address and port are already in use.
求解。