[[Lepe]]

Pues vas a tener que incluir una línea de código, lástima que tenga que arruinar tu eficiente código.

Código Delphi [-]
if(buf1)
               {
                 fwrite(buffer1,(cab.bpm/8),tambuffer,fich2);
                 waveOutWrite(hwo,&bufferinf1,sizeof(bufferinf1));
                  while(waveOutUnprepareHeader( hwo,&bufferinf2,sizeof(bufferinf2)) == WAVERR_STILLPLAYING)
                  {
Application -> ProcessMessages
                  }
               }
              else
               {
                   fwrite(buffer2,(cab.bpm/8),tambuffer,fich2);
                 waveOutWrite(hwo,&bufferinf2,sizeof(bufferinf2));
                  while(waveOutUnprepareHeader( hwo,&bufferinf1,sizeof(bufferinf1)) == WAVERR_STILLPLAYING)
                  {
Application -> ProcessMessages
                  }
               };

Eso hará que tu programa "respire" y permita procesar los mensajes que tenga en la cola de espera, tales como:
- movimientos de ratón
- Pulsaciones de teclas
- Pulsaciones de botones
- o sea, todo

Saludos