// You need a TWebbrowser, a TLabel procedureTForm1.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
;