как обратиться к браузеру?

[gazellea]

Добрый день! прошу помощи!

Есть код вида:

procedure TForm1.btnShowClick(Sender: TObject);
begin
wbWebBrowser.Navigate(edURL.Text);
end;

procedure TForm1.btnExecClick(Sender: TObject);
var cn,i:integer; vTags:OleVariant; s:string;
        finded:boolean;
begin
     vTags:=wbWebBrowser.OleObject.Document.getElementsByTagName('Li');
     cn:=vTags.length-1;
     finded:=false;
     for i:=0 to cn do
     begin
        s:=vTags.item(i).innerHTML;
        if Pos(edRef.Text,s)>0 then
        begin
          mmHTML.Text:=s;
          finded:=true;
          break;
       end;
   end;
if not(finded) then mmHTML.Text:='Не найдено';
end;

end.

Подскажите пожалуста как изменить код, чтобы программа обращалась к запущенному браузеру типа: "Опера, ИЕ, или же браузеру написаном на базе ИЕ"?

Проблема в том, что не могу и не знаю как прописать обращение к самодельному браузеру(и как его имя прописать в коде) на базе ИЕ(

Помогите и подскажите пожалуста!