Музыка через Player при открытии формы

Form4.MediaPlayer1.FileName:='Name.mp3';
Form4.MeidaPlayer1.Open;
Form4.MediaPlayer1.Play;

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg, Menus, MPlayer;
 
type
  TForm4 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label1: TLabel;
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
 z1 = 'Fotor1.jpg';
 z2 = 'Fotor2.jpg';
 
var
  Form4: TForm4;
  n: integer;
  z: string;
 
 
implementation
 
uses Unit3;
 
{$R *.dfm}
 
 
 
procedure TForm4.FormCreate(Sender: TObject);   
begin
   Form4.Caption:='Second mode';
   Timer1.Enabled:= True;
 
 Form4.MediaPlayer1.FileName:='Name.mp3';
Form4.MeidaPlayer1.Open;
Form4.MediaPlayer1.Play;
 
   z:= z2;
   n:= 1;
   Form4.Label1.Caption:= 'Show caution mode';
 
end;
 
procedure TForm4.Timer1Timer(Sender: TObject);   
begin
   if n <= 100 then begin
   if z = z1 then
   begin
      z:= z2;
      Form4.Image1.Picture.LoadFromFile(z);
   end
   else begin
     z:=z1;
     Form4.Image1.Picture.LoadFromFile(z) ;
   end;
   n:= n +1;
   end;
 
end;
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 Form4.Close;
end;
 
procedure TForm4.N1Click(Sender: TObject);
begin
  Form4.Close;
  Form3.Show;
end;
 
 
 
 
end.