Вот функция получения прямой ссылки на видео с YouTube (link - строковая переменная в которую должен передаваться исходный код страницы):

function TForm1.Pars(link: string): string;
begin
try
link := Copy(link, pos('img.src =', link) + length('img.src ='), length(link));
link := Copy(link, 1, pos(' img = null;', link) - 1);
link := Copy(link, pos('http:\/\/', link) + length('http:\/\/'), length(link));
link := StringReplace(link,'\u0026','&',[rfReplaceAll, rfIgnoreCase]);
link := StringReplace(link,'\/generate_204?','/videoplayback?', [rfReplaceAll, rfIgnoreCase]);
delete(link,length(link)-8,9);
Result :='http://'+link;
except
on E : Exception do
ShowMessage(e.Message);
end;
end;