TFrom1=class(TForm)
private
param1: String;
procedure syncproc();
...
procedure TForm1.IdTCPServer1OnExec(...)
begin
param1 := 'xxxxxx';
TThread.Synchronize(syncproc);
end;
procedure TForm1.Synchronize();
begin
UnSafeVCLProc(param1);
end;
显示代码如上：
但这个方式可能会有主线程在等待工作线程，而工作线程也在等待主线程的死锁问题，要小心仔细搞清楚。
