Doc: IHTMLDocument2;
Script: IHTMLScriptElement;
Doc:= WebBrowser.Document as IHTMLDocument2;
Len:= Doc.Scripts.Length;
for I:= 0 to len-1 do begin
  Script:= (Doc.Scripts.item( I, 0) as IHTMLScriptElement);
  在Script.Text里面查吧
end;