Обработка звукового потока

procedure TMyThread1.Execute;
begin
BASS_SetConfig(BASS_CONFIG_BUFFER,5000);
BASS_Init(-1, 44100, 0, Handle, nil);
stream:=BASS_streamCreateURL(pansiChar('http://online.radiorecord.ru:8102/brks_128'), 0,0,nil, 0);
BASS_ChannelPlay(stream, false);
end;

stream:=BASS_streamCreateURL(pansiChar('http://online.radiorecord.ru:8102/brks_128'), 0,BASS_STREAM_STATUS,@MyDownloadProc(тут ошибка), nil);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms,Dialogs, bass, MMSystem, StdCtrls, ExtCtrls;
 
 
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
TMyThread1 = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure MyDownloadProc(const aPBuff : Pointer; aLen : Cardinal; aPUser : Pointer); stdcall;
 
    end;
var
  Form1: TForm1;
  stream: HSTREAM;
  Channel: DWORD;
  PlaySync: HSYNC;
  MyThr: TMyThread1;
implementation
 
{$R *.dfm}
 
procedure TMyThread1.Execute;
begin
BASS_SetConfig(BASS_CONFIG_BUFFER,5000);
BASS_Init(-1, 44100, 0, Handle, nil);
stream:=BASS_streamCreateURL(pansiChar('http://online.radiorecord.ru:8102/brks_128'), 0,BASS_STREAM_STATUS,@MyDownloadProc, nil);
BASS_ChannelPlay(stream, false);
end;
procedure MyDownloadProc(const aPBuff : Pointer; aLen : Cardinal; aPUser : Pointer); stdcall
begin
form1.label1.Caption:= 'Поток потерян';
end;
function ShowForm : Integer; stdcall;
var
        Form : TForm1;
begin
        Form := TForm1.Create(Application);
        Result := Form.ShowModal;
        Form.Free;
end;
 
function AppName(sName:String):String;
begin
  sName:='Плагин 1'
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
MyThr:=TMyThread1.Create(False);
Timer1.Enabled:=True;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
bass_free;
Timer1.Enabled:=False;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
TrackPos, stime: variant;
begin
{TrackPos:=BASS_CONFIG_VERIFY;
label3.Caption:= TrackPos;
if TrackPos < 0.4 then begin
label1.Caption:= 'Поток потерян';
end;
if TrackPos > 0.4 then begin
label1.Caption:= 'OK';
end;}
end;
 
exports
ShowForm,AppName;
 
end.