Eins muss ich noch dazu sagen:
Wenn man den Link des YouTube Videos nicht über "KeepVid" holen möchte so kann man das so machen:
Delphi-Quellcode:
//Komponenten: idHttp(UserAgent umstellen!)
//Edit1.Text = ID des YouTube Videos und Ausgabe ist in Edit2
//Anfrage auf das Video(Weiterleitung...)
http.Head('http://www.youtube.com/v/'+Edit1.Text+'&hl=en');
//Korrekte ID holen und aus dem Link extrahieren und anpassen
Edit2.Text := 'http://www.youtube.com/get_video?video_id='+Edit1.Text+'&t='+Copy(http.URL.URI,Pos('&t=',http.URL.URI)+3,Pos('&hl=en',http.URL.URI)-6);
http.Disconnect;
lg