#pas
procedure THIRecord.open;
 var i:integer;
     bytes: integer; 
begin
   if not isOpen then
    begin
     
     mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS dlma', '', 0, 0);

      bytes:=Trunc(_prop_Bits/4);

     i:= mciSendString(PChar('SET dlma TIME FORMAT MS ' +
       ' BITSPERSAMPLE ' + int2str(_prop_Bits) +
       ' CHANNELS ' + int2str(_prop_Stereo)+
       ' SAMPLESPERSEC ' + int2str(_prop_Speed) +
       ' BYTESPERSEC ' + int2str(_prop_Speed*bytes)+
       ' alignment '+int2str(bytes)),'', 0, 0); 
     
//       _debug(i);
   end;
   isOpen:=true;
   isRun:=true;
end;