Hmmm....
Vielen Dank erstmal für deine Antwort. Ich habe es nun mehrere male probiert. Aber irgendwie bleibt der rchan immer = 0, was heißt das er sofort die MsgBox mit der Fehlermeldung anzeigt

.....
An was könnte das liegen?

Tja man sollte die Aufname schon initialisieren.
Das ist jetzt nur mal geraten da ich nicht weiss was da in deinem Code überhaupt abgeht.
Delphi-Quellcode:
if (
not BASS_RecordInit(-1))
or (
not BASS_Init(-1, 44100, 0,
Handle,
nil))
then
begin
BASS_RecordFree;
BASS_Free();
MessageDlg('
Cannot start default recording device!', mtError, [mbOk], 0);
Halt;
end;
gruss