function TMyHttp.SSLGetS(URL: string): string;
var
  Http: TIdhttp;
  SSLIO: TIdSSLIOHandlerSocketOpenSSL;
begin
  Http := TIdHttp.Create(nil);
  Http.ProtocolVersion := pv1_1;
  Http.HandleRedirects := True;
  SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLIO.SSLOptions.Method:=sslvTLSv1;
  SSLIO.SSLOptions.Mode := sslmClient;
  try
    try
      Http.IOHandler:=SSLIO;
      Result := Http.Get(URL);
    except
      Result := '';
    end;
  except
 
  end;
  Http.Disconnect;
  FreeAndNil(SSLIO);
  FreeAndNil(Http);
end;