救命！！！！Udp在XP下的错误！！！ (100分)

我用IDUdp做了一个局域网通讯的程序。一开始在2000下测试，如果服务器不打开，客户端会报错：
Socket Error #10045
connection Reset By peer
在XP下报这样的错：
Socket Error #10013
Access denied
后来我在客户端程序中加了 try except 解决了2000的问题
代码：
procedure TForm1.Button1Click(Sender: TObject);
Var
receivestring:string;
begin
IdUDPClient1.Port:=8090;
IdUDPClient1.Host:='192.168.0.254';
IdUDPClient1.Send('sadasd');
try
receivestring:=IdUDPClient1.ReceiveString();
except
Memo1.Lines.Add('连接失败！！！！！');
end;
end;
可是在XP下还是报前面的错
Socket Error #10013
Access denied
请问各位大虾怎样来解决在xp下的这个问题～～～～[]
晕～～～[] 怎么没人回答呢？？ 分不够我可以再加，甚至可以倾家荡产～～

IdUDPClient1.ReceiveString();

是什么意思？

procedure TForm1.Button1Click(Sender: TObject);
Var
receivestring:string;
begin
IdUDPClient1.Port:=8090;
IdUDPClient1.Host:='192.168.0.254';
try
IdUDPClient1.Send('sadasd');
except
Memo1.Lines.Add('发送失败！！！！！');
end;
try
receivestring:=IdUDPClient1.ReceiveString();
except
Memo1.Lines.Add('连接失败！！！！！');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
receivestring:string;
begin
IdUDPClient1.Port:=8090;
IdUDPClient1.Host:='192.168.0.254';
try
IdUDPClient1.Send('sadasd');
receivestring:=IdUDPClient1.ReceiveString();
except
Memo1.Lines.Add('连接失败！！！！！');
end;
end;