delphi中的udpclient如何接收来自udpserver发送的消息？

Question

udpclient需要先给udpserver发送消息，二者才能建立连接。
我自己简单写了一下client只能发送不能接收，问题在哪里呢？
还有就是udpclient在和调试器连接的时候是正常的能收能发，请各位大神请教！

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPClient1.Active := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('127.0.0.1', 8001, Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
begin
try
s := Form1.IdUDPClient1.ReceiveString();
if length(s) > 1 then
Form1.Memo1.Lines.Append(s);
finally

end;

end;