Internet Stream aufzeichnen mit bass.dll

[wincompi5]

Hallo zusammen

Ich wollte in meinem Programm eine Funktion einbauen, damit man einen Internet Stream aufnehmen kann mit der bass.dll...
Hier bin ich dann auch fündig geworden.
Es hat soweit bei mir alles funktioniert. Das einzige Problem ist aber, dass mein Programm einfach immer nur 5 sec aufnimmt!
Wahrscheinlich war ich einfach wieder einmal dumm und habe etwas übersehen...
Weiß jemand woran das liegen könnte?

Hier sonst nochmal die Codes:

Code:

procedure DownloadProc(buffer: Pointer; length: DWORD; user: DWORD); stdcall;
begin
  if (URL_ToFileNeme = '') then
    exit;
  if (URL_FileStream = nil) then
      URL_FileStream:= TFileStream.Create(URL_ToFileNeme, fmCreate); // create the file
  if (buffer = nil) then
      URL_FileStream.Free // finished downloading
   else
      URL_FileStream.Write(buffer^, length);
  end;

und zum abspielen

Code:

  URL_ToFileNeme := ExtractFilePath(ParamStr(0)) + 'recordings/Record.mp3';
  URL_FileStream:= nil;
  Chan := THandle(BASS_StreamCreateURL(PChar(URL), 0, 0, @DOWNLOADPROC, 0));

Vielen Dank schon im Voraus
win5