example-ssl-tls-delphi-indy.pas

uses
  IdHTTP, IdSSLOpenSSL, IdGlobal, System.Classes;

function CreateIdHTTPComponent(AOwner: TComponent = nil; const Url: string = ''): TIdHTTP;
var
  SSLio: TIdSSLIOHandlerSocketOpenSSL;
begin
  // Cria o componente TIdHTTP com o Owner especificado
  Result := TIdHTTP.Create(AOwner);
  Result.HandleRedirects := true;

  // Se a URL for fornecida e começar com 'https', configure o componente para usar SSL/TLS
  if (Url = '') or (LowerCase(URIProtocol(Url)) = 'https') then
  begin
    SSLio := TIdSSLIOHandlerSocketOpenSSL.Create(Result);
    SSLio.SSLOptions.Mode := sslmClient; // Define o modo como cliente
    SSLio.SSLOptions.Method := sslvTLSv1_2;
    SSLio.SSLOptions.SSLVersions := [sslvTLSv1_2, sslvTLSv1_1, sslvTLSv1];
    Result.IOHandler := SSLio;
  end;
end;