Wav-ovi sa preklapanjima ; Delphi 6

Code:
Procedure PlayFile(Player : tcbaudioplay);
Var
  Cnt : Integer;
begin
  for Cnt := cbDeviceList.count-1 DownTo 0 do
  begin
    IF (pos('Default DirectSound Device',cbDeviceList[cnt]) > 0) Then
      Begin
         Player := TcbAudioPlay.Create(mainForm, FileName, cnt);
      End;
  end;
  Player.Play;
end;

Code:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, cbAudioPlay, ExtCtrls, Menus, DirectShow, ComCtrls, Buttons,
  MMSystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure PlayWav1();
procedure PlayWav2();

var
  Form1: TForm1;
  PustacWav1 , PustacWav2 : TcbAudioPlay;
implementation

{$R *.dfm}

procedure PlayWav1();
var
  Cnt : Integer;
begin
  for Cnt := cbDeviceList.count-1 DownTo 0 do
  begin
    if (pos('Default DirectSound Device',cbDeviceList[cnt]) > 0) Then
      begin
         PustacWav1 := TcbAudioPlay.Create(Form1,'..\Wavs\Wav1.wav', cnt);
      end;
  end;
    PustacWav1.Play;
end;

procedure PlayWav2();
var
  Cnt : Integer;
begin
  for Cnt := cbDeviceList.count-1 DownTo 0 do
  begin
    if (pos('Default DirectSound Device',cbDeviceList[cnt]) > 0) Then
      begin
         PustacWav2 := TcbAudioPlay.Create(Form1,'..\Wavs\Wav2.wav', cnt);
      end;
  end;
    PustacWav2.Play;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     PlayWav1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    PlayWav2;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    PustacWav1.Free;
    PustacWav2.Free;
end;

end.

Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
     PlayFile(PustacWav1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    PlayFile(PustacWav2);
end;