Здравствуйте, [b]Oneboyfriend[/b]!

Пример находится в приложении. oper - объект класса TComboBox.

Если в тексте страницы имеется не один элемент с именем (name) 'home', то придется усложнить код:
1. С помощью iDoc.all.tags('SELECT') получаете коллекцию (iColl: IHTMLElementCollection) элементов с тэгом SELECT;
2. Перебираете элементы коллекции (IHTMLSelectElement), пока не найдете элемент с именем 'home' (он и будет сохранен в переменной iSel).

Удачи!

Приложение:
// Событие WebBrowser1.OnDocumentComplete
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
i: Integer;
iDoc: IHtmlDocument2;
iSel: IHTMLSelectElement;
iOpt: IHTMLOptionElement;
begin
// Очищаем список
oper.Items.Clear;

if Failed(WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2,
iDoc))
then
Exit;

// Находим элемент SELECT с именем home
if Supports(iDoc.all.item('home', 0), IHTMLSelectElement, iSel) then
begin
// Перебираем пункты OPTION
for i:= 1 to iSel.length do
begin
if Supports(iSel.item(Pred(i), Pred(i)), IHTMLOptionElement, iOpt) then
// Заносим элемент в список
oper.Items.Add(iOpt.text);
end;

// Устанавливаем индекс выделенного по умолчанию элемента
oper.ItemIndex:= iSel.selectedIndex;
end;
end;

// Событие oper.OnClick
procedure TForm1.operClick(Sender: TObject);
var
iDoc: IHtmlDocument2;
iSel: IHTMLSelectElement;
begin
if Failed(WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2,
iDoc))
then
Exit;

// Ищем элемент SELECT с именем home
if Supports(iDoc.all.item('home', 0), IHTMLSelectElement, iSel) then
// Устанавливаем выбранный индекс
iSel.selectedIndex:= oper.ItemIndex;
end;