Где ошибка? Delphi 7

[DoS.]

Где ошибка?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Bass;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  stream: Hstream;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
if bass_Init(-1, 44100, 0, handle, nil)=false then
ShowMessage('Не могу инициализировать поток');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bass_free();
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if openDialog1.Execute=false then exit;
 if stream<>0 then
 Bass_StreamFree(stream);

stream:= Bass_streamCreateFile(false, Pchar(openDialog1.fileName),0,0,0);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
BASS_channelPLAY(stream,false);
end;

end.

[Sciv]

Где ошибка?

А какая ошибка?

[DoS.]

Сообщение от Sciv

А какая ошибка?

Решил сделать плеер на Delphi7 написал код, но при нажатии кнопки "старт"(запуск музыки) не происходит ни какой реакции, вот терь не пойму почему