CRITICAL_SECTION cs;
void *указатель_на_музыку_в_озу;

поток_загрузки()
{
   EnterCriticalSection(cs)

   free(указатель_на_музыку_в_озу);

   указатель_на_музыку_в_озу  = malloc();
   
   read_file_to_memory(указатель_на_музыку_в_озу, file);
   
   LeaveCriticalSection(cs);
}

поток_воспроизведения()
{
   if (TryEnterCriticalSection(cs))
   {
      play_music(указатель_на_музыку_в_озу);
     
      LeaveCriticalSection(cs);
   }
   else
   {
      /*если музыка сейчас загружается, то по указателю
      void *указатель_на_музыку_в_озу
      не обращаемся т.к. он указывает неизвестно куда*/
    }
}

DEFINITION WinApi ["KERNEL32.dll"];
...
PROCEDURE EnterCriticalSection (VAR [nil] lpCriticalSection: RTL_CRITICAL_SECTION);
...
PROCEDURE LeaveCriticalSection (VAR [nil] lpCriticalSection: RTL_CRITICAL_SECTION);
...
PROCEDURE TryEnterCriticalSection (VAR [nil] lpCriticalSection: RTL_CRITICAL_SECTION): BOOL;
...
END WinApi.