Как проверить, является ли текущее соединение в TWebBrowser Secure (SSL)

// You need a TWebbrowser, a TLabel

procedure
 TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const
 pDisp: IDispatch; var
 URL: OleVariant);
begin

  if
 Webbrowser1.Oleobject.Document.Location.Protocol = 'https:' then

    label1.Caption := 'Sichere Verbindung'
  else

    label1.Caption := 'Unsichere Verbindung'
end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере