如何用idUdpServer控制循环？ ( 积分: 100 )

我用一个button1 循环发送消息，用idUdpServer 接收到的消息来控制是否中止 button1的循环，本人百思不得其解。
简单代码如下，请大侠帮助解决，多谢。
var
stopFlag:boolean;
procedure btn1.clicked(sender:tobject);
begin
stopFlag:=false;
while stopFlag<> true do
begin
application.processMessages;
if stopFlag then
exit;
idudpclient1.sendbuffer(destinIp,destinPort,buffer,sizeof(buffer));
end;
end;
procedure idudpserver.read***(sender:tobject;adata:tstream;abinding:****);
begin
stopFlag :=true;
...................

end;

我用一个button1 循环发送消息，用idUdpServer 接收到的消息来控制是否中止 button1的循环，本人百思不得其解。
简单代码如下，请大侠帮助解决，多谢。
var
stopFlag:boolean;
procedure btn1.clicked(sender:tobject);
begin
stopFlag:=false;
while stopFlag<> true do
begin
application.processMessages;
if stopFlag then
exit;
idudpclient1.sendbuffer(destinIp,destinPort,buffer,sizeof(buffer));
end;
end;
procedure idudpserver.read***(sender:tobject;adata:tstream;abinding:****);
begin
stopFlag :=true;
...................

end;