BASS.DLL в дополнительном модуле.

[werrey]

Здравствуйте.
Подскажите пожалуйста, как разместить нижеприведённый код в дополнительном модуле(без формы)? Надо те события, которые у меня
на кнопках, сделать как отдельные функции в дополнительном модуле,
чтобы потом их оттуда можно было вызывать в разных формах.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Bass,
  StdCtrls, ExtCtrls, jpeg;

type
  TChannelType = (ctUnknown, ctStream, ctMusic);

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;

   procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);


private
     Channel: DWORD;
     Channel1: DWORD;
     Channel2: DWORD;
    ChannelType: TChannelType;
    function BASS_PlaySoundFile(const FileName: string): Boolean;

  end;

var
  Form1: TForm1;


implementation

{$R *.DFM}


function TForm1.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;
 Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel <> 0) then
  begin
    BASS_ChannelPlay(Channel, False);
  end;
  Result:= Channel <> 0;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
BASS_streamfree(channel1);
Channel1:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'w/test.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel1, False);
BASS_ChannelSetAttribute(Channel1,Bass_ATTRIB_VOL,0);
BASS_ChannelSlideAttribute(Channel1,Bass_ATTRIB_VOL,  + 1,10000);

 end;

procedure TForm1.Button2Click(Sender: TObject);
begin

BASS_streamfree(channel);
Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'w/test2.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, False);
BASS_ChannelSetAttribute(Channel,Bass_ATTRIB_VOL,0);
BASS_ChannelSlideAttribute(Channel,Bass_ATTRIB_VOL,  + 1,10000);

 end;

procedure TForm1.Button3Click(Sender: TObject);
begin
BASS_ChannelSlideAttribute(Channel,Bass_ATTRIB_VOL, 0 / 100,7000);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);
end;


end.

[werrey]

Вопрос решен.
Всем спасибо за внимание и помощь!
Не знаю, насколько правильный получился код, но главное что работает:

unit zvuk_bass;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  ExtCtrls, StdCtrls, BASS, mmsystem, shellapi;

type
TChannelType = (ctUnknown, ctStream, ctMusic);
function BASS_PlaySoundFile(const FileName: string): Boolean;  

var
ChannelType: TChannelType;

Channel: DWORD;     
Channel1: DWORD;    

procedure zvuk_btn();
procedure zvuk_ptc1(); 


implementation

 
function BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;
Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel <> 0) then
  begin
    BASS_ChannelPlay(Channel, False);
  end;
  Result:= Channel <> 0;
end;                          

procedure zvuk_btn(); 
begin
BASS_streamfree(channel);
Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'Sound/btn.wav'), 0, 0,{ BASS_SAMPLE_LOOP  or} {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, False);
BASS_ChannelSetAttribute(Channel,Bass_ATTRIB_VOL,0.55);
//BASS_ChannelSlideAttribute(Channel,Bass_ATTRIB_VOL,  + 1,10000);  // нарастание)))
end;



procedure zvuk_ptc1();  
begin
BASS_streamfree(channel1);
Channel1:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'Sound/1-1.mp3'), 0, 0,{ BASS_SAMPLE_LOOP  or} {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel1, False);
BASS_ChannelSetAttribute(Channel1,Bass_ATTRIB_VOL,0);
BASS_ChannelSlideAttribute(Channel1,Bass_ATTRIB_VOL,  + 0.85,10000);  // нарастание)))
end;





end.