procedure TForm1.Button3Click(Sender: TObject);
begin
  a := IdHTTP1.Get('http://vk.com/audio.php'); // Получаем страничку пользователя
     begin
      while Pos('value="http://cs',a)<>0  do
        begin
           Delete(a,1, Pos('http://cs',a)-1); // Удаляем лишнее
           b  := Copy (a,1,(pos('.mp3', a) +3)); //
           ListBox1.Items.Add(b);
           Delete(a,1,(pos('.mp3', a) +3)); // Удаляем лишнее
        end;
     end;
end;