valla delphi de kısayolu var mı bilmiyorum ama twebbrowser da kaynak kodunu böyle çekiyorum ben, kısayolu varsa bilen birisi paylaşırsa sevinirim

var kısmı:

link2: Olevariant;
ib:integer;
kaynak:string;

link2:=webbrowser1.OleObject.Document.getelementsb ytagname('body');
for ib:=0 to link2.length-1 do
kaynak:=link2.item(ib).innerHTML;