...
    property images: IHTMLElementCollection read Get_images;
...

  IHTMLElementCollection = interface(IDispatch)
    ['{3050F21F-98B5-11CF-BB82-00AA00BDCE0B}']
    function  toString: WideString; safecall;
    procedure Set_length(p: Integer); safecall;
    function  Get_length: Integer; safecall;
    function  Get__newEnum: IUnknown; safecall;
    function  item(name: OleVariant; index: OleVariant): IDispatch; safecall;
    function  tags(tagName: OleVariant): IDispatch; safecall;
    property length: Integer read Get_length write Set_length;
    property _newEnum: IUnknown read Get__newEnum;
  end;

var
  vaIn, vaOut: OleVariant;
begin
  vaIn := 'C:\temp\006.html';
  WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
  Caption := vaOut;
end;

unit InternetSiteServicerWin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, OleCtrls, SHDocVw, Dialogs, ActiveX, MSHTML, ExtCtrls;

type
  TInternetSiteServicerForm = class(TForm)
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InternetSiteServicerForm: TInternetSiteServicerForm;

implementation

{$R *.dfm}

const
  SaveDialogShowing: Boolean = False;

procedure TInternetSiteServicerForm.Timer1Timer(Sender: TObject);
const
  I: Integer =  0 ;
begin
  if not SaveDialogShowing then Exit;
  Inc(I); if not (I mod  4  =  3 ) then Exit;
  PostMessage(Application.Handle, WM_KEYDOWN, vk_Return,  0 );
  Application.ProcessMessages;
  PostMessage(Application.Handle, WM_KEYUP, vk_Return,  0 );
  Application.ProcessMessages;
  SaveDialogShowing := False;
  { 0 } Caption := 'OnTimer ' + IntToStr(Screen.CustomFormCount);
end;

procedure TInternetSiteServicerForm.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
var
  vaIn, vaOut: OleVariant;
const
  HttpAddr = 'www.gismeteo.ru/weather/towns/35121.htm';
  FileName = 'C:\Temp\test.htm';
begin
  { 1 } Caption := DateTimeToStr(Now) + ' ' + IntToStr(Screen.CustomFormCount);
  WebBrowser1.Navigate(HttpAddr);
  repeat
    Application.ProcessMessages;
    HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  until Assigned(HTMLDocument);
  while HTMLDocument.ReadyState <> 'complete' do
  begin
    Application.ProcessMessages;
  end;
  { 2 } Caption := DateTimeToStr(Now) + ' ' + IntToStr(Screen.CustomFormCount);
  vaIn := FileName;
  //vaOut := FileName;
  SaveDialogShowing := True;
  WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
  //WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
  //WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
  SaveDialogShowing := False;
  { 3 } Caption := vaOut + ' ' + IntToStr(Screen.CustomFormCount);
end;

end.

procedure TInternetSiteServicerForm.Timer1Timer(Sender: TObject);
var
  SaveDialogHandle: THandle;
  S: String;
begin
  if not SaveDialogShowing then Exit;
  SaveDialogHandle := GetNextWindow(Handle, GW_HWNDPREV);
  while SaveDialogHandle <>  0  do
  begin
    S := GetWindowClassName(SaveDialogHandle);
    if S = '#32770' then
      if GetParent(SaveDialogHandle) = Handle then Break;
    SaveDialogHandle := GetNextWindow(SaveDialogHandle, GW_HWNDPREV);
  end;
  if SaveDialogHandle =  0  then Exit;
  PostMessage(SaveDialogHandle, WM_KEYDOWN, vk_Return,  0 );
  SaveDialogShowing := False;
end;