Quelltext einer Webpage in Richedit anzeigen

[simjoh16]

Hallo,

ich möchte den Seitenquelltext einer Webpage in einer Richedit-Komponente anzeigen.

Delphi-Quellcode:

  webbrowser1.Navigate(URL);

  if Assigned(WebBrowser1.Document) then
  begin
    PageBody := (WebBrowser1.Document AS IHTMLDocument2).Body;

    while PageBody.ParentElement <> nil do
      PageBody := PageBody.ParentElement;

    richedit1.Text := PageBody.innerHTML;
  end;

Nachdem webbrowser1.Navigate(link) ausgeführt wurde, ist Assigned(WebBrowser1.Document) aber false, sodass die Richedit1.Text-Zuweisung nicht ausgeführt wird. Was mach ich da falsch? Wenn ich den Code nochmal ausführe, ist Assigned(WebBrowser1.Document) true und die Zuweisung klappt.

Danke.