#pas
      mciSendString(PChar('SET dlma TIME FORMAT MS ' +
       'BITSPERSAMPLE ' + int2str(_prop_Bits) +
       ' CHANNELS ' + int2str(_prop_Stereo) +
       ' SAMPLESPERSEC ' + int2str(_prop_Speed) +
       ' BYTESPERSEC ' + int2str(round(_prop_Bits*_prop_Stereo*_prop_Speed/8))),
        nil, 0, 0);