Hallo,
aufgrund des propagierten Schreibfehlers vermute ich die Quelle deines Codes in diesem Beitrag:
TWebBrowser OnDocumentComplete
Ohne deine Änderungen funktioniert der dort angegebene Code ausgezeichnet.
Getestet habe ich mit dem Beispiel aus SelfHTML:
FrameSet
Grüße vom marabu