Как правильно завершить поток

[cosmic_call]

не понимаю почему у меня не очищается память после удаления потока
помогите
есть поток у него в Execute цикл

while Action<>cSNDSTOP do
...ляляля потом когда выхожу из цикла:
..
Destroy

а деструктор

destructor TPlayThread.Destroy;
...
лялял тут необходимые закрытия драйвера и тд.
...
inherited Destroy
end;

свойство FreeOnTerminate включаю. в чем проблема. почему он после завершения не освобождается из памяти?

[Пепел Феникса]

а что в потоке создается еще?

[cosmic_call]

ну там воспроизведение звука низкоуровневое. в Create я задаю свойства для открытия аудиодрайвера. потом в Execute фактически открваю драйвер - waveOutOpen и подготавливаю буфера waveOutPrepareHeader. далее собственно цикл воспроизведения с условием

while Action<>cSNDSTOP do

из главной программы я просто пишу когда мне нужно

PlayThread.Playback:=cSNDSTOP;

а после цикла вызываю Destroy где происходит закрытие всех буферов и драйвера. получается я не могу просто обрвать цикл написав в главной программе PlayThread.Free потому что тогда не получится корректно закрыть драйвер.