1:
2:
3:
4:
5:

MediaPlayer1.FileName:= filename;  //Datei Name
MediaPlayer1.open;
MediaPlayer1.Display:=panel1;      //dort wo das video abgespielt werden soll, dazu werden sehr oft panels verwendet
MediaPlayer1.DisplayRect:=Panel1.ClientRect;  //video auf panel größe stretchen glaub ich, einfach mal rumüprobiern
MediaPlayer1.Play;                 /startet viedeo					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.DisplayRect:=Panel1.ClientRect;
  MediaPlayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OpenDialog1.Execute;// das fehlte
  MediaPlayer1.FileName:= OpenDialog1.FileName;
  MediaPlayer1.open;
  MediaPlayer1.Display:=panel1;
end;