// [1] // uses SHDocVw, ActiveX function GetScriptOfHTML(Web: TWebBrowser; HTML: TStrings) : Boolean; var PersistStream: IPersistStreamInit; Stream: IStream; FileStream: TmemoryStream; begin try if not Assigned(Web.Document) then begin Result := False; //ShowMessage('Document not loaded!'); Exit; end; PersistStream := Web.Document as IPersistStreamInit; FileStream := TmemoryStream.Create; try St..