Звуки Widows !!!!!

[krolik]

Я немогу понять что не так в етой програме компонент MediaPlaye при запуска серого цвета и не одна кнопка не нажымаэтса....)))))
Помогите пожалуста...буду очень благодарен!!!!

Листинг програмы

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  SOUNDPATH: string[80];

procedure TForm1.FormCreate(Sender: TObject);
var
 lpBuf: PChar;
 sWinDir: string[128];
 SearchRec: TSearchRec;
begin
 GetMem(lpBuf,MAX_PATH);
 GetWindowsDirectory(lpBuf,MAX_PATH);
 sWinDir:=lpBuf;
 SOUNDPATH:=sWinDir+'\Media\';
 FreeMem(lpBuf);

 if FindFirst(SOUNDPATH+'*.wav', faAnyFile, SearchRec) =0 then
   begin
     Form1.ListBox1.Items.Add(SearchRec.Name);
       while(FindNext(SearchRec) = 0) do
        Form1.ListBox1.Items.Add(SearchRec.Name);
   end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  if (Button = btPlay) and (Label2.Caption <> '') then
  begin
   with MediaPlayer1 do
    begin
      FileName:=SOUNDPATH+Label2.Caption;
      Open;
      // Wait:= True;
     end;
  end;   
end;

end.

[krolik]

нехто незнает????