[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 doc : IHTMLDocument2;
 span, tmp : IHTMLElement;
 i, cnt : integer;
begin
 if WebBrowser1.Document = nil then 
  begin
   ShownMessage('Сперва хоть что нибудь загрузите в TWebBrowser!');
   Exit;
  end;

 if Edit1.Text = '' then 
  begin
   ShownMessage('Нужен SPAN ID!');
   Exit;
  end;

 doc:= WebBrowser1.Document as IHTMLDocument2;
 cnt:= doc.All.Length;
 for i := 0 to cnt - 1 do
  begin
   tmp:= doc.all.item(i, '') as IHTMLElement;
   if (tmp.tagName = 'SPAN') and (tmp.id = Edit1.Text) then
    begin
     span:= tmp;
     Break;
    end;
  end;
 if span <> nil then  span.click
 else  
   ShownMessage('Не повезло, нету тут тега SPAN или забыли его ID :)');
end;