[Error] Unit1.pas(28): Undeclared identifier: 'TStringGrid'
[Error] Unit1.pas(151): Undeclared identifier: 'TIdHTTP'
[Error] Unit1.pas(153): Undeclared identifier: 'Get'
[Error] Unit1.pas(154): Undeclared identifier: 'LoadDocument'

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSHTML, ActiveX, IdHTTP;

procedure TForm1.ProcessMessages;
var
  Msg: TMsg;
begin
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

function TForm1.LoadDocument(doc: IHTMLDocument2; s: TStream): Boolean;
var
  sa: IStream;
begin
  if Assigned(doc) then
  begin
    s.Position := 0;
    sa := TStreamAdapter.Create(s, soReference);
    with doc as IPersistStreamInit do
    begin
      InitNew;
      Result := Succeeded(Load(sa));
    end;
  end else Result := false;
  if Result then
    while doc.readystate <> 'complete' do
      ProcessMessages;
end;