кто поможет с плеером?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bass_simple, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  bass_global: TBassGlobal;
  bassObj: TBassSimple;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 // кнопка Play
 bassObj.FileMusic.Name:=Edit1.Text;
 bassObj.Play;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // кнопка stop
 bassObj.Stop;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 bass_global:=TBassGlobal.Create(Handle);
 bassObj:= bass_global.CreateBassSimple;
end;
 
end.

// инициализация библиотеки BassDLL
 // check the correct BASS was loaded
if (HIWORD(BASS_GetVersion) <> BASSVERSION) then begin
  ShowMessage('Обнаружена неверная версия библиотеки BASS.DLL');
  Halt;
end;
// Initialize BASS with the default device
if not BASS_Init(-1, 44100, 0, handle, nil) then begin
  ShowMessage('bass.dll не запущен!'#13'Рекомендуется прекратить работу приложения');
  Exit;
end;

//filename  : string - имя файла или ресурса интернета
 
if length(filename)<4 then exit;
ansiFilename:=PAnsiChar(AnsiString(filename));
url:=LowerCase(Copy(filename,1,4));
try // загрузка файла в поток
    if (url='http') or (url='ftp') then begin // сетевой ресурс
        stream := BASS_StreamCreateURL(ansiFilename, 0, 0, nil, 0);
    end else // файл по умолчанию
        stream := BASS_StreamCreateFile(False,ansiFilename,0,0,0);
except
    ShowMessage('Ошибка файла воспроизведения'#13'Не удается установить поток для файла'#13+ansiFilename);
        Exit;
end;
if (stream = 0) then begin
    ShowMessage('Ошибка инициализации воспроизведения');
    Exit;
end;
 
// stream - поток его надо гдето хранить, тип Cardinal

// уничтожение потока
if stream<>0 then begin
  BASS_ChannelStop(stream);
  BASS_StreamFree(stream);
  stream:=0;
end;

// считывание текущей позиции при воспроизведении в секундах
// seconds : double
  seconds:=BASS_ChannelBytes2Seconds(stream,  BASS_ChannelGetPosition(stream,BASS_POS_BYTE) );
 
// перемотка
// Value :  double - новое значение позиции воспроизведения в секундах
BASS_ChannelSetPosition(
    stream,
    BASS_ChannelSeconds2Bytes(stream,Value),
    BASS_POS_BYTE
  );