Habe es nun hinbekommen, meine procedure sieht nun so aus und funktioniert prima. Die lösung war das TEmbeddedWB(asender).
Delphi-Quellcode:
procedure Tform4.DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
html2.Clear;
TEmbeddedWB(asender).SaveFrameToStrings(0,html2);
if pos('
login',html2.text) <> 0
then begin
Showmessage('
Login gefunden');
end;
end;