procedure TForm1.Button5Click(Sender: TObject);
var
    i:integer;
begin
    for i:=0 to WebBrowser1.OleObject.document.getElementsByTagName('span').length-2 do
    begin

        Memo1.Lines.Add(IntToStr(i)+'------'+ WebBrowser1.OleObject.document.getElementsByTagName('span').item(i).innerhtml);
        if WebBrowser1.OleObject.document.getElementsByTagName('span').item(i+1).innerhtml=唯一关键字' then
        begin
            WebBrowser1.OleObject.document.getElementsByTagName('span').item(i+1).click;
        end;
    {
    if WebBrowser1.OleObject.document.getElementsByTagName('span').item(i).innerhtml='唯一关键字1' then
    begin
      memo1.Lines.Add(WebBrowser1.OleObject.document.getElementsByTagName('span').item(i+1).innerhtml);
      if WebBrowser1.OleObject.document.getElementsByTagName('span').item(i+1).innerhtml<>'唯一关键字2'then
      WebBrowser1.OleObject.document.getElementsByTagName('span').item(i+1).click;
    end;
      }
  end;
end;