一个在线连接数引发的Delphi线程安全（Thread Safe）问题

 Q：我在AP端的RemoteDataModule的Create時下了Form1.ClientConnect(1); 这一行，在Destroy时下了Form1.ClientConnect(-1);

在FORM1上放了一个LABEL用来做显示在线人数的一个Procedure  

procedure TForm1.ClientConnect(sCOUNT: Integer); begin FCOUNT:=FCOUNT+sCOUNT; Label1.Caption:=IntToStr(FCOUNT); //在客户端，有时只要一connected，就会当在那里不动， //但是只要把这一行注释起来，就沒问题了，不知是什么原因？ end;
   A：>> Label1.Caption:=IntToStr(FCOUNT);

   问题就出在这一行上....

   是因为VCL的UI展现部分，并没有做到Thread Safe 的关系

  最简单的方式就是省略掉这一行...由 Form的事件去处理(例如放一个Timer去更新)