S := TStringStream.Create(Json);
  HTTP:=TIdHTTP.Create(nil);
  SSL:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  HTTP.IOHandler:=SSL;

//..........................................
//..........................................

    try
        HTTP.Get('https://test.com/v1/checkit', S);
        i:=HTTP.Response.ContentStream.Size; //  если все отработало норм, то здесь поток имеет содержимое, Size>0 
    except
      on E: Exception do begin
        i:=HTTP.Response.ContentStream.Size; //  если была ошибка, то Size=0
        MessageDlg('Ошибка: ' + e.Message, mtError, [mbOK], 0);
      end;
    end;

  FreeAndNil(S);
  HTTP.Destroy;
  SSL.Destroy;

    except
      on E:EIdHTTPProtocolException do
        Result[0]:=E.ErrorMessage;
    end;