可以学学TServerSocket那个Thread Pooling那个功能,用一个Event(CreateEvent)让一个线程
平时挂起,当要用到这个Thread时,将Event(SetEvent),将它唤醒,
让它继续工作(ClientExecute)
它的代码好像是这样写的:
ClientExecute是virtual;
abstract;
procedure Execute;
begin
while not Terminateddo
begin
if FEvent.WaitFor(INFINITE) then