Problem mit Selection im tWebbrowser

[c.wuensch]

@marabu:
Danke für den Tipp, die Idee ist echt gut!

Leider habe ich ein Problem mit dem "Hochhangeln":

Delphi-Quellcode:

  hElement := selectionRange.parentElement;
  While hElement <> bodyElement Do Begin
    hElement := hElement.parentElement;
    showmessage (hElement.outerHTML);
  End;

Durch die Message nach jedem Durchgang der Schleife sehe ich, dass die Bedingung wohl nicht false wird, selbst wenn bereits das body-Element erreicht ist. Der nächste Durchlauf führt dann zu einem Laufzeitfehler.

Gibt es denn eine andere Möglichkeit, diese Bedingung zu formulieren, oder vielleicht eine andere Methode des Hochhangelns?