一个简单的，有意思的关于网络速度与程序速度的问题

Question

发现在个人单个机器上测试时的一个问题
假设一句发送数据的过程叫做SendData,而一个接受消息事件叫做DataArr以下都是伪码，只是表示下意思而已procedure TfrmMain.btnConnClick(Sender: TObject);
begin
  SendData('Req');
  .....
  .....
end;
procedure TfrmMain.DataArr(Sender: TComponent; const sFrom,
  sMsg: String); //sMsg表示接受到的字符
begin
  ....
  if sMsg='Req'
    SendData('Ack');
  if sMsg='Ack'
    ShowMessage('OK');
  ...
end;这里在单机调试的时候发生很有意思的事情，按钮中的  SendData('Req');
之后的语句不是直接立即执行的，SendData之后马上触发了DataArr，SendData之后的语句也没有DataArr早被运行然后，我现在所编的一段程序，控制语句比较多而复杂，就出现了因为这个原因，而在DataArr中发生了死循环的错误