Durch ein Button Filename von TMediaPlayer verändern

[xBuefx]

Hi

Ich wollte gerne eine mp3 datei mit meinem MediaPlayer abspielen lassen. Programmiere seit 3 Jahren von der Schule aus mit Delphi und habe Version 3!

Bis jetzt habe ich es so versucht

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var help:string;
begin
     help:=opendialog1.filename;
     edit1.text:=help;
     MediaPlayer1.filename:=help;
     OpenDialog1.Execute;
end;


procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
     mediaplayer1.FileName:=Edit1.text;
end;

end.

was ist dran falsch?

also das programm soll in einem Edit Fenster anzeigen, welche datei abgespielt wird, und soll on einem Button geändert werden können!

Danke im Vorraus

Buef