Как расшифровать данную кодировку?

Var Response: String;
begin
    Response := EasyGet('https://mail.ru/','Mozilla/5.0');
    sMemo1.Lines.Add(Response);
end;

function EasyGet (url, useragent: string) : string;
var
  hSession : Pointer;
  hConnect : Pointer;
  hRequest : Pointer;
  bResults : Pointer;
  dwSize : longint;
begin
  try
    if url[Length(url)] <> '/'
      then  
        url := url + '\';
    if not IsInited
      then
        WinHTTPInit;
    dwSize := 0;
    hSession := GetSessionHandle(useragent,url);
    hConnect := GetConnectHandle(hSession,url);
    hRequest := GetRequestHandle(hConnect,url,'GET');
    if url[8] = '/'
      then
        SetIgnoreErrorSSL(hRequest);
    bResults := GetSendRequestHandle(hRequest,'');
    HttpReceiveResponse(hRequest);
    HttpQueryDataAvailable(hRequest,dwSize);
    Result := HttpReadData(hRequest,dwSize);
  except
   Result := '-1';
  end;
  try
    HTTPCloseHandle(hSession);
    HTTPCloseHandle(hConnect);
    HTTPCloseHandle(hRequest);
  except
    Result := '-2';
  end;
end;