这里为什么出错呀？ 我没有分数了。等以后有了补上，请大家帮忙！(0分)

procedure TFrmFh.udpserverUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
Ts : TStream;
n : Integer;
Test : Array[0..1] of byte;
begin
if ABinding.PeerIP = GStack.LocalAddress then exit; //自己收到广播包
try
Ts := TStream.Create;
n := AData.Size;
Ts.CopyFrom(AData,0); //这里出错了。
Ts.Read(Test,2);
//其他代码
end;

错误是：EAbstractError with message 'Abstract Error'

try
Ts := TMemoryStream.Create;
...

谢谢 tseug


我以后会补你分数的。谢谢

procedure TFrmFh.udpserverUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
Ts : TStream;
n : Integer;
m : int64;
Test : Array[0..3] of byte;
begin
if ABinding.PeerIP = GStack.LocalAddress then exit; //自己收到广播包
try
Ts := TMemoryStream.Create;
n := AData.Size;
m:= Ts.CopyFrom(AData,0);
Ts.ReadBuffer(Test,2); //现在这里出错了。

end;


错误：Tstream read error;

接受答案了.