用IdUDPServer1连续接收发来的信息，为何隔一段时间后就不可以了？ ( 积分: 100 )

用IdUDPServer1连续接收发来的信息，为何隔一段时间后就不可以了？非要关闭窗体重新开一下才行：
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
astringstream:tstringstream;
tpstring:string;
begin
//if memo1.Lines.Count = 0 then
// begin
astringstream:=tstringstream.Create('');
astringstream.CopyFrom(AData, AData.Size);
tpstring := astringstream.DataString;
MEMO1.Lines.Add(tpstring);
astringstream.Free;
if Application.FindComponent('Form2') = nil then
begin
form2 := Tform2.Create(Application);
form2.Showmodal;
form2.free;
end;
end;

用IdUDPServer1连续接收发来的信息，为何隔一段时间后就不可以了？非要关闭窗体重新开一下才行：
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
astringstream:tstringstream;
tpstring:string;
begin
//if memo1.Lines.Count = 0 then
// begin
astringstream:=tstringstream.Create('');
astringstream.CopyFrom(AData, AData.Size);
tpstring := astringstream.DataString;
MEMO1.Lines.Add(tpstring);
astringstream.Free;
if Application.FindComponent('Form2') = nil then
begin
form2 := Tform2.Create(Application);
form2.Showmodal;
form2.free;
end;
end;

关注此贴！请问数据是不是间断地、不停地发过来的？

前不久我用socketclient,socketserver寫個可以傳圖片﹐也可在/桌面截圖片的
程序﹐
但是只能傳一只﹐傳 第二次要重啟。后來我沒改了。