終わりかけのIEとIEモードを操作するコードを書いています
いろいろなサイトを回りpDocが少し変そうですが警告はでますが一応動作はしてます
おかしなところがあれば教えてください

var
hIE_S:HWND;
AMsg:Cardinal;
iRes:Cardinal;
pDoc:IHTMLDocument3;
Doc2:IHTMLDocument2;
Doc3:IHTMLDocument3;
begin
hIE_S:=Internet Explorer_Serverを探してくる

AMsg := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(hIE_S, AMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, iRes);
if ObjectFromLresult(iRes, IHTMLDocument2, 0, pDoc) = S_OK then begin
Doc2 := pDoc as IHTMLDocument2;
end;

AMsg := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(hIE_S, AMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, iRes);
if ObjectFromLresult(iRes, IHTMLDocument3, 0, pDoc) = S_OK then begin
Doc3 := pDoc as IHTMLDocument3;
end;

このあとはDoc2とDoc3を使って操作

end;