【求助】如何用IdUDPServer1.ReceiveBuffer接受自定义的记录类型变量

我自定义了一个记录变量类型，用SendBuffer发送，但是在执行到IdUDPServer1.ReceiveBuffer(Str2,SizeOf(Str2));这一行时程序却卡主了，没有报错。求解答。我的代码如下：
type
T_Str = Packed record
   ID:ShortString;
   str:ShortString;
end;
var Str1,Str2 :T_Str;
这是发送的：IdUDPClient1.SendBuffer(Str1,SizeOf(Str1));
接受的
TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
begin
   IdUDPServer1.ReceiveBuffer(Str2,SizeOf(Str2)); /这里卡主/
   ....
end;