procedure SetIExplorerURL(Sender: TObject; URL : string);
var
    Winds: IShellWindows;
    IEWB: IWebBrowser2;
    i: integer;
    Doc: IHtmlDocument2;
    Flags: Olevariant;
    sf: string;
    aHDL: Integer;
    pvaClsid, pvarShow, pvarSize: OleVariant;
begin
try
try
  Winds := CoShellWindows.Create;
  Flags := $0800; //navOpenInNewTab = 0x0800
  sf := StringReplace(URL, 'https://', '', [rfReplaceAll, rfIgnoreCase]);
  if Winds.Count > 0 then
   begin
    for i:=0 to Winds.Count - 1 do
     if (Winds.Item(i) as IWEbBrowser2).Document <> nil then
      begin
       IEWB := Winds.Item(i) as IWEbBrowser2;
       aHDL := IEWB.Get_HWND;
       if IEWB.Document.QueryInterface(IhtmlDocument2, Doc) = S_OK then
        begin
         if (pos(URL, Doc.url) > 0) then // нужная закладка найдена 
          begin
           //MessageDlg('Экземпляр Internet Explorer уже запущен. ', mtInformation, [mbOk], 0);
           // делаем активным Internet Explorer
           SetForegroundWindow(aHDL); 
           ShowWindow(aHDL, SW_SHOWMAXIMIZED);
           
           // ??? нужно сделать активным закладку с найденным адресом
           //SetActiveWindow(aHDL); - не работает
           break;
          end;
        end;
      end;
   end
  else
   begin
     IEWB := CoInternetExplorer.Create;
     IEWB.Visible := True;
     IEWB.Navigate(URL, Flags,EmptyParam,EmptyParam,EmptyParam);
   end;
except
   on E: Exception do
    MessageDlg('Ошибка открытия Internet Explorer...' + #13#10 +
              '___________________________________________________________________________'#13#10 +
              E.Message, mtError, [mbOK], 0 );

end;

finally
  Doc := nil;
  IEWB := nil;
end;