BASS_Init fehler bei aufruf bei 2 Auswertungen

[merlin2539]

Hallo zusmmen
ich bin am verzweifeln, ich habe in meinem Programm ein Objekt das die einkommende Signale auf dem Micro Line in etc auswertwet dieses tut einwandfrei, jetzt woillte ich noch ein Cd player mit CD text einbauen, habe es auch getan aber er macht alles bis auf das er mit bei Inalisieren von Bass dann Fehler bring
siehe Code

Delphi-Quellcode:

von dem CD Player 

  // Setup output - default device
  if (not BASS_Init(-1, 44100, 0, Handle, nil)) then
  begin
    MessageBox(0, 'Can''t initialize device', 'Error', MB_ICONERROR);
    Halt;
  end;

hier vor dem Texz dann kommt das für mein Micro

  //------ M icro AUswertung ----------------nd
  BASS_Init(-1, 44100, 0, Application.Handle, nil);
  OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
  Spectrum    := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
  fftdata1     :=tstringlist.create;

könnt ihr mir ein rat geben wie ich das lösen kann, ich habe es soweit zurückverfolgt das es an dem BASS_Init liegen muss, das komische ist wenn ich das mit dem Micro rausnehme dann geht es trotzdem nicht, dann bekommt der Player keine Daten vom Stream komisch

hier noch der Coder für CD Player, Seperat tut er einwandfrei

Delphi-Quellcode:

  stream[drive] := BASS_CD_StreamCreate(drive, track, BASS_CD_FREEOLD); // create stream
  BASS_ChannelSetSync(stream[drive], BASS_SYNC_END, 0, @EndSync, 0); // set end syc
  if (drive = DWORD(curdrive)) then
  begin
    trkPos.Max := BASS_StreamGetLength(stream[drive]) div 176400; // set pos scroller range
    trkVol.Position := 0; // set default volume slider pos
    trkSpeed.Position := 100; // set default speed slider pos
    GroupBox2.Caption := 'Speed - 100%';
  end;
  BASS_ChannelPlay(stream[drive], False); // start playing