Леонид, забыл напомнить - в uses надо влепить mmsystem.