我在网上阅读Nick Hodges的文章，我发现了队列，但它的行为并不像我预期的那样，我不明白他和文档说了什么。看下面的代码：

TThread.CreateAnonymousThread(
  procedure
   begin

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Clear;
                                           Memo1.Lines.Add('start');
                                          end);

     Sleep(2000);

     TThread.Synchronize(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Add('end');
                                          end);

   end
 ).Start;

我一直使用Synchronize，但这次我尝试使用Queue，因为根据Nick的说法，在多个请求的情况下使用Queue更好，因为它们不会被“序列化”并一个接一个地执行。上面的代码工作正常。为什么这不工作呢？

TThread.CreateAnonymousThread(
  procedure
   begin

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Clear;
                                           Memo1.Lines.Add('start');
                                          end);

     Sleep(2000);

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Add('end');
                                          end);

   end
 ).Start;

在这种情况下，Memo输出start，但不输出结尾。当我调用：

• 第一次同步和第二次同步有效
• 第一次排队，第二次同步，它起作用
• 两次排队都不起作用，因为我在备忘录中只看到start