使用线程同步,把对Vcl的操作写在被同步的过程中:
Synchronize(Method: TThreadMethod)