请问我这段代码接受网络数据，有什么毛病，总出现地址访问错误

[sparrownet]

我用IdUDPServer的onudpread事件从网络接受数据，
这个事件有一个参数AData,我想把AData的内容读到本地
的一个临时变量content(string类型)里，代码如下
procedure TForm1.IdUDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
content : string;
buf : PCHAR;
begin
if AData.Size > 0 then
begin
buf := StrAlloc(AData.Size*SizeOf(Char));
AData.Seek(0, soFromBeginning);
AData.Read(buf, AData.Size);
content := buf;
//use content here.
myrichedit.lines.add(content);

StrDispose(buf);
end;
end;
可是程序读到AData.Read总出现异常，这是为什么，哪位
给看一下，我这段代码有什么毛病

[wengj]

也不需要重新定义一个变量呀
强制一下就可以了 myrichedit.lines.add(string(buf));

[wengj]

AData.Read(buf^, AData.Size);