Ayuda con mi reproductor

[Khronos]

Muchas gracias por el aporte, y ya solucione parte del problema.

procedure TFPrincipal.FormActivate(Sender: TObject);
var
I:integer;
begin
if paramcount>0 then begin
   for I:= 1 to ParamCount do begin
 listbox1.Items.Add(ExtractFileName(Paramstr(I)));
 listbox2.Items.Add(Paramstr(I));
   end;
listbox1.Enabled:=true;
panel3.Visible:=false;
speedbutton1.Visible:=true;
speedbutton2.Visible:=true;
speedbutton3.Visible:=true;
speedbutton4.Visible:=true;
speedbutton5.Visible:=true;
listbox1.Selected[0]:=true;
listbox2.Selected[0]:=true;
 
end;

Cuando lo utilizas con un solo archivo funciona, pero si seleccionas varios solo obtiene la path de uno. Es decir, en una carpeta en la que tengas musica mp3 seleccionas 3 y les das a reproducir, pues lo que pasa es que esta funcion solo me detecta la path del primer archivo...
No se que hacer