关于socket的问题，请高手指点迷津！

小弟刚学socket编程，想通过点击chekbox来确定是客户端还是服务但段，下面这段程序如果连续点击CheckBox的话就会出现错误，提示'no address specified',不知道是什么原因。请各位高手指点。
procedure TServerForm.CheckBox1Click(Sender: TObject);
begin
     if checkBox1.Checked then //做服务器端
     begin
       ClientSocket.Active:=False;
       ServerSocket.Active:=True;
      end
   else //做客户端
     begin
        Clientsocket.Active:=True;
        ServerSocket.Active:=False;
        end;
end;