procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://www.google.ru/advanced_search');
 ComboBox1.Style:=csDropDownList;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
var
 select: OleVariant;
 i: integer;
begin
 select:=WebBrowser1.OleObject.document.all.item('lr');
 for i:=0 to select.length-1 do
   ComboBox1.Items.Add(select.item(i).innerText);
 ComboBox1.ItemIndex:=0;
end;