[pgranados]

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
  // El sitio utiliza HTTPS
end
else
begin
  // El sitio utiliza HTTP
end;

La función la genero ChatGPT