Вывод списка mp3 файлов и их воспроизведение

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, MPlayer, StdCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    ListBox2: TListBox;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ListBox3: TListBox;
    procedure PP;
    Procedure FindFileInFolder(path, ext: string);
    procedure playnext;
    procedure playprev;
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Image2Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ListBox3DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
   CurrentIndex: integer = -1;
   CurrentIndex2: integer = -1;
   str:string;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
If TrackBar1.Position<>mediaplayer1.Position
then begin
mediaplayer1.Position:=TrackBar1.Position;
mediaplayer1.Play;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.FileName<>''
then begin
TrackBar1.Max:=mediaplayer1.Length;
TrackBar1.Position:=mediaplayer1.Position;
end else exit;
end;
 
procedure TForm1.PP;
begin
CurrentIndex:= ListBox2.ItemIndex;
if CurrentIndex <> -1 then
begin
if MediaPlayer1.FileName <> '' then MediaPlayer1.Close;
MediaPlayer1.FileName:= ListBox1.Items[CurrentIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
timer1.Enabled:=true;
TrackBar1.Enabled:=true;
end;
end;
 
procedure TForm1.FindFileInFolder(path, ext: string);
Var
SR : TSearchRec;
Res : Integer;
begin
Res := FindFirst(path+ext, faAnyFile, SR);
while Res = 0 do
begin
form1.ListBox1.Items.Add(path+Sr.Name);
form1.ListBox2.Items.Add(Sr.Name);
Res := FindNext(SR);
end;
FindClose(SR);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MediaPlayer1.FileName <> '' then MediaPlayer1.Close;
end;
 
procedure TForm1.playnext;
begin
if CurrentIndex = -1 then Exit;
if (CurrentIndex < ListBox2.Count-1)
then Inc (CurrentIndex)
else CurrentIndex:= 0;
ListBox2.ItemIndex:= CurrentIndex;
PP;
end;
 
procedure TForm1.playprev;
begin
if CurrentIndex = -1 then Exit;
if (CurrentIndex > 0)
then Dec(CurrentIndex)
else CurrentIndex:= ListBox2.Count-1;
ListBox2.ItemIndex:= CurrentIndex;
PP;
end;
 
procedure TForm1.Image2Click(Sender: TObject);
begin
playprev;
end;
 
procedure TForm1.Image5Click(Sender: TObject);
begin
if MediaPlayer1.FileName <> '' then MediaPlayer1.Pause else exit;
end;
 
procedure TForm1.Image3Click(Sender: TObject);
begin
PP;
end;
 
procedure TForm1.Image4Click(Sender: TObject);
begin
playnext;
end;
 
procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
pp;
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('i.jpg');
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('i2.jpg');
end;
 
procedure TForm1.ListBox3DblClick(Sender: TObject);
begin
if MediaPlayer1.FileName<>'' then MediaPlayer1.Close;
if ListBox2.items.Text <> '' then ListBox2.Items.clear;
CurrentIndex2:= ListBox3.ItemIndex;
str:=ListBox3.Items[CurrentIndex2];
FindFileInFolder(str+'\', '*.mp3');
end; 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox3.Items.LoadFromFile('config.txt');
end;
 
end.