diff --git a/VCL/SndCustm.pas b/VCL/SndCustm.pas
index cea16bc..d7fab38 100644
--- a/VCL/SndCustm.pas
+++ b/VCL/SndCustm.pas
@@ -188,8 +188,9 @@ procedure TCustomSoundInOut.DoSetEnabled(AEnabled: boolean);
         FThread:= TWaitThread.Create(true);
         FThread.FreeOnTerminate:= true;
         FThread.Owner := Self;
-        //FThread.Priority := tpTimeCritical;
-        //start
+        FThread.Priority := tpTimeCritical; // don't starve the WaveOut device
+        FThread.NameThreadForDebugging('TWaitThread'); // without this, IDE will hang
+        //start audio output device
         FEnabled:= true;
         try
             Start;