diff --git a/src/xpdev/clx/ThreadCreate/ThreadUnit.cpp b/src/xpdev/clx/ThreadCreate/ThreadUnit.cpp
index b850c061694f5abbce083816c5121417c85014bb..b69dd7a759198a229ba6f844c4bb3c710140f41d 100644
--- a/src/xpdev/clx/ThreadCreate/ThreadUnit.cpp
+++ b/src/xpdev/clx/ThreadCreate/ThreadUnit.cpp
@@ -34,10 +34,11 @@ void __fastcall TMyThread::Execute()
 {
 	while(!Terminated) {
     	Synchronize(AddToLog);
+        /* TThreadList is a simplier way to use a thread-safe TList */
 		CriticalSection->Enter();
 		List->Add(new AnsiString(ThreadID));
         CriticalSection->Leave();
- 	    Sleep(1);
+ 	    Sleep(1000);
     }
 }
 //---------------------------------------------------------------------------