unit Intro;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls, ExtCtrls;

type
  TFormIntro = class(TForm)
    MediaPlayer2: TMediaPlayer;
    Panel1: TPanel;
    Exit: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIntro: TFormIntro;

implementation

{$R *.DFM}


procedure TFormIntro.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MediaPlayer2.Stop;
  MediaPlayer2.Rewind;
  MediaPlayer2.Visible := True;
end;

procedure TFormIntro.ExitClick(Sender: TObject);
begin
  close;
end;

procedure TFormIntro.FormShow(Sender: TObject);
begin
With MediaPlayer2 do begin
//     Filename := sWinDir + '\Clock.avi'; //specify video file
//     DeviceType := dtAVIVideo; //set Device compatibility to AVI
     Display := Panel1; //Set display device to a TPanel
     Open;
     Play;
     Visible := False;
end;
//  MediaPlayer2.play;
//  MediaPlayer2.Visible := False;
end;

end.