Отображение песен в Label.

[Alex21]

зачем вводить ненужные переменные?

procedure TForm1.Button1Click(Sender: TObject);
begin
  FileListBox1.ItemIndex:=FileListBox1.ItemIndex+/-1;
{сюда добавить проверку не 0 и не последняя ли песня}
{имя файла}
  caption:=FileListBox1.Items[FileListBox1.ItemIndex];
{имя+путь}
  caption:=FileListBox1.FileName;
end;

[Stanislav]

Спасибо....

[Stanislav]

А не могли бы вы поеснить если мы осуществили проверку и она показала что песня оказалась последней что делать дальше? Спасибо..

[Alex21]

Вариантов несколько: можно перейти к первой песни, можно остановить воспроизведение совсем, тут уж от фантазии зависит.
Допустим вы хотите сделать зацикливание, т.е. если список кончился, то начать его играть заново. Вот 2 варианта - для проигрывания сверху-вниз, и наоборот снизу-вверх:

{пролистывание сверху-вниз}
procedure TForm1.Button2Click(Sender: TObject);
begin
{если выбрана не последняя строка, то..}
if FileListBox1.ItemIndex<FileListBox1.Count-1 then
{.. переходим ниже...}
  FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1
  else
  {а если последняя, то переходим к первой}
  FileListBox1.ItemIndex:=0;
end;

{пролистывание снизу-вверх}
procedure TForm1.Button1Click(Sender: TObject);
begin
{если выбрана не первая строка, то..}
if FileListBox1.ItemIndex>0 then
{...пролистываем вврех на 1 выше...}
  FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1
  else
  {а, если выбрана первая, то переходим на последнюю}
  FileListBox1.ItemIndex:=FileListBox1.Count-1;
end;