Проиграть mp4 файл

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
uses OleCtrls, WMPLib_TLB;
 
var wmp: TWindowsMediaPlayer;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 decimalseparator:= '.';
 
 wmp:= TWindowsMediaPlayer.Create(self);
 with wmp do begin
  TabOrder:= 1;
  align:= alclient;
  parent:= Form1;
  Visible:= true
 end;
 
 // скармливаем адрес видеопотока (или путь к видеофайлу) 
 // прошу обратить внимание, что это может быть и не IP,
 // а адрес DDNS, зарегистрированный для сервера трансляции
 wmp.URL:= 'http://www.vesti.ru/video1.asx?vid=onair';
 wmp.settings.set_volume(100);
 
 // растягиваем видео на весь контрол
 wmp.ControlInterface.stretchToFit:= true;
 wmp.uiMode:= 'none';
 wmp.enableContextMenu:= true;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 // приостанавливаем клиента
 wmp.controls.stop;
 wmp.Free;
end;
 
end.