procedure TForm1.Button1Click(Sender: TObject);

begin
 with MediaPlayer1 do
 begin
 Filename := 'C:\test.mpg';
 Open;
 Display := Panel1;
 DisplayRect := Panel1.ClientRect;
 Play;
 {visible:=false;} {в случае если необходимо скрыть кнопки плеера}
 end;
end;