为什么IdUDPClient.ReceiveString的值总是空的

发送按钮的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
  Lv_Str, Lv_LocalHostName, Lv_LocalHostIP: string;
begin
  Lv_LocalHostName := Pv_GetLocalName; //取得本地计算机名
  ShowMessage(Lv_LocalHostName);
  Lv_LocalHostIP := Pv_NameToIP(Lv_LocalHostName);
  ShowMessage(Lv_LocalHostIP);
  ADODataSet2.Filtered := True;
  ADODataSet2.Filter := Format('UserIP' + '=' + '''%s''', [Lv_LocalHostIP]);
  Gv_Name := ADODataSet2.FieldByName('UserName').AsString;
  IdUDPClient1.Host := Gv_IP;
  ShowMessage(Gv_IP);
  if Length(Memo2.Lines.GetText) > 0 then
  begin
    IdUDPClient1.Send(Memo2.Lines.GetText);    Lv_Str := IdUDPClient1.ReceiveString;   // 用ShowMessage(Lv_Str)发现总是空的,是什么原因,麻烦大家指点,谢谢    Memo1.Lines.Insert(0, Gv_Name + ': ' + Lv_Str);
    Memo2.Clear;
    Memo2.Lines.Clear;
  end;
  Memo2.SetFocus;
end;