Con el URL del sitio.
https://www.clubdelphi.com/
http://www.imss.gob.mx/
Si necesitas una función puedes utilizar esta mandandole el URL del sitio web:
Código Delphi
[-]
uses
IdURI;
function IsHTTPS(const AURL: string): Boolean;
var
URI: TIdURI;
begin
URI := TIdURI.Create(AURL);
try
Result := SameText(URI.Protocol, 'https');
finally
URI.Free;
end;
end;
Ejemplo de uso:
Código Delphi
[-]
if IsHTTPS('https://www.ejemplo.com') then
begin
end
else
begin
end;
La función la genero ChatGPT