delphi2010里idudpserver接受数据怎么是乱码？？？

Question

我的代码是这样的发送以及广播代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not UDPServer1.BroadcastEnabled then
    UDPServer1.BroadcastEnabled:=True;
  UDPServer1.Broadcast('SillyCat傻猫',SPort);
  UDPServer1.Send('127.0.0.1',SPort,'SC超级傻猫');
end;接收代码
procedure TForm1.UDPServer1UDPRead(AThread: TIdUDPListenerThread; AData: TBytes;
  ABinding: TIdSocketHandle);
var
RecString:string;
i:Integer;
begin
//  for I := Low(AData) to High(AData) do
//  begin
//    RecString:=RecString+Chr(AData[i]);
//  end;
  RecString:=StringOf(AData);
  Memo2.Lines.Add('收到数据：'+RecString+'***'+DateTimeToStr(now));
end;收到的中文都是显示?
请各位大虾帮帮忙

Answer 1

编码问题：  大概如此修改，语法与关键字可能有错，没调试：
  UDPServer1.Broadcast('SillyCat傻猫',SPort, TEnicoding.Unicode); 
  UDPServer1.Send('127.0.0.1',SPort,'SC超级傻猫', TEnicoding.Unicode);   RecString:=WideString(AData); 

Answer 2

宽字符问题，2010默认是unicode