Bass.dll время трека в LisxBox

[Alex2009]

Ребят прошу вашей помощи.
Как занести в ListBox время всех песен.

Вот так я получаю оставшееся и общее время песни которая играет.

TrackPos:=BASS_ChannelBytes2Seconds(SineStream,BASS_ChannelGetPosition(SineStream));
TrackLen:=BASS_ChannelBytes2Seconds(SineStream,BASS_ChannelGetLength(SineStream));
  ValPos:=TrackPos / (24 * 3600);
  ValLen:=TrackLen / (24 * 3600);
  Label1.Caption:=FormatDateTime('hh:mm:ss',ValPos);
  Label2.Caption:=FormatDateTime('hh:mm:ss',ValLen);

Песни берутся из vk + api таким образом

for i:=0 to str.Count-1 do
  begin
     Music[i].url:= ParsSimpleXML(str[i], 'url');
     Music[i].artist:=ParsSimpleXML(str[i], 'artist');
     Music[i].title:=ParsSimpleXML(str[i], 'title');

     Form2.ListBox1.Items.AddObject(IntToStr(i)+ ' - '+  music[i].artist+'-'+music[i].title, Pointer(clActiveBorder));
  end;

[Delphi_ProGer]

В ответе также приходит duration каждой песни. Парсь это значение для каждого элемента массива Music и потом суммируй всё значения и получишь продолжительность всех трэков)