var
  {$IFNDEF MSWINDOWS}
    {$IFDEF DARWIN}
    DLLSSLName: string = 'libssl.dylib';
    DLLUtilName: string = 'libcrypto.dylib';
    {$ELSE}
     {$IFDEF OS2}
      {$IFDEF OS2GCC}
    DLLSSLName: string = 'kssl.dll';
    DLLUtilName: string = 'kcrypto.dll';
      {$ELSE OS2GCC}
    DLLSSLName: string = 'ssl.dll';
    DLLUtilName: string = 'crypto.dll';
      {$ENDIF OS2GCC}
     {$ELSE OS2}
    DLLSSLName: string = 'libssl.so';
    DLLUtilName: string = 'libcrypto.so';
     {$ENDIF OS2}
    {$ENDIF}
  {$ELSE}
  DLLSSLName: string = 'ssleay32.dll';
  DLLSSLName2: string = 'libssl32.dll';
  DLLUtilName: string = 'libeay32.dll';
  {$ENDIF}
{$ENDIF}

uses ssl_openssl;

function GT_INFO_GET_SYNAPSE(url: string; var IH: TIdHTTP; m: TMemo): string;
var
  http: THTTPSend;
  l: TStrings;
  i: Integer;
  realurl: String;
begin
  url:=ReplInpStr(url, '^http:(.*?)$', 'https:$1');
  try
    begin

      http := THTTPSend.Create;
      http.UserAgent := IH.Request.UserAgent;
      http.Timeout := 1000;
      realurl := '';
      l := TStringlist.Create;
      if http.HTTPMethod('GET', url) then
      begin
        // If its a 301 or 302 we need to do more processing
        if (http.ResultCode = 301) or (http.ResultCode = 302) then
        begin
          // Check the headers for the Location header
          for i := 0 to http.Headers.count - 1 do
          begin
            // Extract the URL
            if Copy(http.Headers[i], 1, 8) = 'Location' then
              realurl := Copy(http.Headers[i], 11,
                length(http.Headers[i]) - 11);
          end;

          if length(realurl) > 1 then
            l.Text := GT_INFO_GET_SYNAPSE(realurl, IH, m);
        end
        else
          l.LoadFromStream(http.Document);
      end;
      // Return result
      l.Text := utf8toansi(l.Text);

      m.Clear;
      m.lines.Text := l.Text;
      LOG(0, 0, 'GIS', 'url: ' + url);
      LOG(0, 0, 'GIS', 'res: ' + m.lines.Text);

      http.Free;
      l.Free;
    end;
  except
    on e: Exception do
      LOG(0, 0, 'ERR', 'GT_INFO_GET_SYNAPSE: ' + e.Message);
  end;
end;

procedure GT_INFO_GET(url: string; var IH: TIdHTTP; m: TMemo);
begin
  try
    m.Clear;
    m.lines.Text := IH.GET(url);
    LOG(0, 0, 'GIG', 'url: ' + url);
    LOG(0, 0, 'GIG', 'res: ' + m.lines.Text);
  except
    on e: Exception do
    begin

      if Pos('SSL3_GET_RECORD:wrong version number', e.Message) > 0 then
      begin
        GT_INFO_GET_SYNAPSE(url, af.IdHTTP1, af.Memo1);
      end
      else
       LOG(0, 0, 'ERR', 'GT_INFO_GET: ' + e.Message);
    end;
  end;
end;

/*вызов:*/

GT_INFO_GET(url, af.IdHTTP1, af.Memo1);