MediaPlayer простой плейлист

[RombosGT]

Нужна Ваша помощь, народ
У меня есть простой плеер, мне нужно добавить на него ListBox, потом чтобы при открытии файла имя этого файла (или путь к нему) отображался в этом ListBox'e. Ну и еще чтобы можно было очищает список и заново открывать файлы

вот весь код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, ComCtrls, MPlayer;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
TrackBar1: TTrackBar;
Image6: TImage;
OpenDialog1: TOpenDialog;
Timer1: TTimer;
MediaPlayer1: TMediaPlayer;
Image7: TImage;
MainMenu1: TMainMenu;
About1: TMenuItem;
N0: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
View1: TMenuItem;
MN1: TMenuItem;
N7: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure MN1Click(Sender: TObject);
procedure N7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}


procedure TForm1.N1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
MediaPlayer1.FileName:=OpenDialog1. FileName;
MediaPlayer1.Open;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
MediaPlayer1.Pause;
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
MediaPlayer1.Stop;
MediaPlayer1.Position:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If MediaPlayer1.FileName<>''
then begin
TrackBar1.Max:=MediaPlayer1.Length;
TrackBar1.Position:=MediaPlayer1.Po sition;
end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
If TrackBar1.Position<>mediaplayer1.Po sition
then begin
MediaPlayer1.Position:=TrackBar1.Po sition;
MediaPlayer1.Play;
end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
N5.Checked:=not N5.Checked;
If N5.Checked then Form1.FormStyle:=fsStayOnTop
else Form1.FormStyle:=fsNormal;
end;

end.

[oxJass]

ну вы когда открываете файл на событие image2Click вы прописываете там:

ListBox.clear; // Предварительно очищает listBox
ListBox.Items.Add(OpenDialog1.Filename); //Добавляет путь открытого файла