Delphi IDE зависает, когда я создаю поток

У меня проблема в том, что Delphi (2010) IDE и программа зависают во время отладки, когда я запускаю поток. Оба окна не отвечают. Когда я убиваю программу, IDE снова работает.

Потребовалось время, мне пришлось удалить куски моей программы, и я нашел проблему. Это вызвано VirtualStringTree.

Поэтому, если я помещаю в форму просто пустой VirtualStringTree (v. 5.5.3), одну кнопку для выполнения TThread с помощью «Сон (2000)» в процедуре «Выполнение» и запускаю такую ​​программу под отладчиком, она зависает (обычно при первом нажатии). Когда я удаляю VST, он работает. Я также заметил, что служба отчетов Windows запущена, но я ничего не нашел в журнале событий Windows.

Кто-нибудь знает, как это возможно?

Полный исходник здесь

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VirtualTrees, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    VirtualStringTree1: TVirtualStringTree;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TTestThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTestThread }

procedure TTestThread.Execute;
begin
  FreeOnTerminate:=True;

  Sleep(2000);
end;

{ TForm }    

procedure TForm1.Button1Click(Sender: TObject);
begin
  TTestThread.Create(False);
end;

end.

EDIT:
Я также пытался отладить процесс Delphi. Я подключился со второго к первому IDE. Когда я нажимаю кнопку, чтобы запустить поток, обе IDE зависают. Итак, я попробовал Delphi 7, который я также установил. Это сработало. Он остается в цикле где-то в ntdll.NtWaitForMultipleObjects, KERNELBASE.WaitForMultipleObjectsEx, USER32.MsgWaitForMultipleObjects.

Я полностью переустановил Delphi, без изменений. Это также может быть связано с этой строкой в ​​исходном коде VirtualStringTree: «WaitForSingleObject(WorkEvent, INFINITE);». Когда я его удаляю, он не замерзает. Но я думаю, что это необходимо там.

Наконец я установил Delphi XE, и все работает правильно. Это загадочно.