急！！！使用UDP通讯时报错：Socket Error # 10049

以前很少写delphi程序，我现需要向一服务器发送一连串字符串，服务器会根据我发送的字符串分类返回一字符给我，我在Timer1的OnTime事件写了发送程序：(Timer1在程序启动就激活了,Enabled=true)   SendStr:='ABCD';
   IdUDPClient1.Active:=   true;
   IdUDPClient1.port:=2003;
   IdUDPClient1.Send(SendStr);
procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
var
  ReciveStr:string;
  Data:TStringList;
begin
  Data := TStringList.Create;
  adata.seek(0,0);
  setlength(ReciveStr,adata.size);
  adata.Read(ReciveStr[1],adata.size);
  if ReciveStr<>''   then
  begin
  end;
end;服务器IP为:192.168.116.72
IdUDPClient的属性设置如下：Host:192.168.116.72，Active=true
IdUDPServer的属性设置如下：Bindings:192.168.116.72:2003，DefaultPort:2003，Active=true当 IdUDPServer 的Active=false就不会报错了......报的错误：Socket Error # 10049 Cannot assign requested address.在本机调试通过（127.0.0.1）,急啊，各位帮帮我吧，谢谢！