delphi6 线程与VCL同步后,挂起出问题.Help！

示意代码procedure ThreadTest.Execute;begin
 
  inherited;
  FreeOnTerminate := True;
  Synchronize(XXX);//与主界面同步
  self.Suspend;
end;发现同步后,线程没有挂起,依然在执行
将同步屏蔽后，线程可以挂起
这是何原因,小弟对线程没多少认识，还请各位高人指点，谢谢!