Делаю автоматическое заполнение HTML страницы в TWebBrowser. 
 На странице поля  <select > 
 При заполнении первого select-а, следующий select должен обновиться, в зависимости от того что я выберу в первом... Но при программном   вводе данных в первый select, второй не обновляется....
 А вот если выбрать мышью в первом select-е, то  всё нормально, данные во 2-м select обновляются!?

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := False;
    //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
    //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
  end;

procedure TForm1.N4Click(Sender: TObject);
begin
 Webbrowser.Navigate('www.sasasaas.ru');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FillForm(WebBrowser, 'country', '6');
 end;

вообще никто ничего по этому поводу не может подсказать..... плиз... хоть какие мысли....