Problem mit dem Mediaplayer

[Tim178]

GUI:

Code:

unit mHaupt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ExtCtrls,mNeben,mDialog, MPlayer;
type
  TGui = class(TForm)
  TMediaPlayer: TMediaPlayer;
  private
    Neben : TNeben;
    Dialog: TDialog;
    procedure Neue;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Gui: TGui;

implementation

{$R *.dfm}

procedure TGui.Neue;
begin
  Neben := TNeben.Create(Gui,TMediaplayer);
  Neben.Parent := GUI;
  Neben.Name := dialog.Getname;
  Neben.Left := Random(Gui.Width-100);
  Neben.Top := Random(Gui.Height-100);
  Neben.Show;
  dialog.Free;
end;
end.

Neben:

Code:

unit mNeben;

interface

uses
  ExtCtrls, Classes, Dialogs, Sysutils,mplayer;

type
   TNeben = class(TImage)
   private
      FFarbe:String;
      Fmp : TMediaplayer;
      { Private-Deklarationen }
   public
      constructor Create(AOwner:TComponent; mp : TMediaplayer); virtual;
      { Public-Deklarationen }
   end;

implementation

implementation

constructor Neben.Create(AOwner:TComponent; mp : TMediaplayer);
var a :integer;
begin
   a := Random(2);
   inherited create(AOwner);
   case a of
        0 : begin
               FFarbe := 'rot';
               Picture.LoadFromFile('xy.bmp');
               Fmp.FileName := 'xy.wav'
            end;
        1 : begin
               FFarbe := 'gelb';
               Picture.LoadFromFile('xy.bmp');
               Fmp.FileName := 'xy.wav'
            end;
    end;
end;
end.

Mein Problem besteht jetzt darin, dass das Programm soweit läuft, doch immer wenn die Prozedur Neue aufgerufen wird, das Programm abstürtzt. Es kann nur an dem Mediaplayer liegen, da das Programm vorher einwandfrei gelaufen ist. Danke für eure Hilfe.