[scroyler]

Код:

var
  i: Integer;
  elem: IHTMLElement;
  document: IHTMLDocument2;
  all: IHTMLElementCollection;
begin

  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  document:=WebBrowser1.Document as IHTMLDocument2;
  all:=document.all;
  for i:=0 to all.length-1 do
  begin
(all.item('month', 0) as IHTMLOptionElement).value:='01';
или
(all.item('month', 0) as IHTMLOptionElement).value:='Август';


   end;
end;

Делал так. не пашет.
Можешь показать код полностью?