Mikrofon benutzen

[mandumoal]

hi

ich möchte mittls mikrofon sound aufnehmen dann speichern , abspielen
ich habs schon mit mci probiert und folgenden code verwendet:

Code:

procedure TFormMain.RecordClick(Sender: TObject); 
begin 
         mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound',nil,0,handle); 

   mciSendString('SET mysound TIME FORMAT MS ' +  // Zeitformat 
                   'BITSPERSAMPLE 16 ' +           // 16 Bit 
                   'CHANNELS 2 ' +                 // Stereo 
                   'SAMPLESPERSEC 22050 ' +        // Frequenz (Hz) 
                   'BYTESPERSEC 22050 ',           // 22050 Bytes/s 
                   nil, 0, handle); 
    

          mciSendString('RECORD mysound', nil, 0, handle); 
end;

allerdings geht es nicht
wie kann ich denn prüfen ob überhaupt ein device geöffnet wurde bzw aufgenommen wird?
gibt es noch andere möglichkeiten mittels mikro aufzunehmen?
(ist das überhaupt die richtige methode? )

bitte helft mir!

mfg mandumoal