Проблема с media player (компонент)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ComCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    MediaPlayer1: TMediaPlayer;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
 begin
  ListBox1.Items.Add(OpenDialog1.FileName);
  Mediaplayer1.FileName := OpenDialog1.FileName;
  Mediaplayer1.Open;
 end;
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 if ListBox1.Items.Count > 0 then
  begin
   Mediaplayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex];
   Mediaplayer1.Play;
  end;
end;
 
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.DisplayRect := Rect(0, 0, Panel1.Width, Panel1.Height);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  MediaPlayer1.DisplayRect := Rect(0, 0, Panel1.Width, Panel1.Height);
end;