1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure ClickImage(WB: TEmbeddedWB; ImageName: string);

var
  iDoc: IHtmlDocument2;
  iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  InputImage: htmlinputimage;
  i: Integer;
begin
  if WB.DocumentLoaded then
  begin
    if Supports(WB.document, IHTMLDocument2, iDoc) then
    begin
      iDisp := iDoc.all.tags('INPUT');
      if Assigned(iDisp) then
      begin
        if Supports(iDisp, IHTMLElementCollection, iColl) then
        begin
          ImageName := AnsiUpperCase(ImageName);
          for i := 1 to iColl.Get_length do
          begin
            iDisp := iColl.item(Pred(i), 0);
            if Supports(iDisp, htmlinputimage, InputImage) then
            begin
              if Pos(ImageName, AnsiUpperCase(InputImage.src)) <> 0 then
              begin
              InputImage.Click;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;