delphi 线程进程同步

 TThread.CreateAnonymousThread(procedure
  begin
        sleep(10);
        TThread.Synchronize(nil,
          procedure
          begin
           我的代码...
          end);

      end).Start;