检查网页是否是安全连接?

...check if a page in TWebbrowser is secure (SSL)?

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;