Avi im Panel.. Sound aber kein Video!

[Noobinator]

Hy leute heute nur mal ein kleineres Problem, oder eher ne Fehlersuche.

Ich möchte mit dem Tmediaplayer eine *.Avi datei wiedergeben, und das auf einem Panel.
Die Datei wähle ich mit einem Opendialog aus, und füge sie in einer Listbox als Wiedergabeliste zu.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls,shellapi, ComCtrls, Spin,MMSystem, Gauges, ExtCtrls,
  Menus;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    PopupMenu1: TPopupMenu;
    lschen1: TMenuItem;
    Label1: TLabel;
    PopupMenu2: TPopupMenu;
    Sound1: TMenuItem;
    F1: TMenuItem;
    ColorDialog1: TColorDialog;
    CheckBox2: TCheckBox;
    TrackBar1: TTrackBar;
    ProgressBar1: TProgressBar;
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var finish:boolean);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure abspielen1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure lschen1Click(Sender: TObject);
    procedure Sound1Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  weiter:boolean = true;

implementation

uses Unit2, Unit3;


{$R *.DFM}

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
if Button=btPlay then
   With MediaPlayer1 do begin
     filename:=listbox1.items[listbox1.itemindex];
     Open;
     display:=form3.Panel1;
     Play;
     end;

if Button=btStop then
MediaPlayer1.Pause;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
for i:=0 to OpenDialog1.Files.Count-1 do
begin
listbox1.items.add(openDialog1.Files.Strings[i]);
listBox1.ItemIndex:=listBox1.ItemIndex+1;
end;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
    FileName:=listbox1.Items[listbox1.ItemIndex];
    Open;
    display:=form3.Panel1;
    Play;

end;                                      
end;
......
end.

So nun geht alles, bis auf die Anzeige des videos... was fehlt?
Der Sound kommt, aber kein Video;