WebBrowser kullanarak sayfanın html kodlarını kaydetme

WebBrowser kullanarak sayfanın html kodlarını kaydetmek için yazılacak kod

Uses MSHTML,... ;
Var   iall : IHTMLElement;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
memo1.Text := iall.outerHTML;

memo1.Lines.SaveToFile('c:\test.htm');
end;

end;