From f3e2d0d0a2582d67e1c7eb68dd76021682097d24 Mon Sep 17 00:00:00 2001
From: Mike Brashler <mike.brashler@gmail.com>
Date: Thu, 14 Apr 2022 12:59:04 -0700
Subject: [PATCH] bug fix kludge - fix IDE hang in debug mode by calling
 NameThreadForDebugging() (no idea why this works)

---
 VCL/SndCustm.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;