Problemas em conectar dispositivo android no servidor Datasnap

function TSM.ValidaUsuario(Usuario : TJsonObject): String;
var
  Par : TJSonPair;
begin
  Par := TJsonPair.Create;
  //login
  par := Usuario.Get(0);
  lusuario := Par.JsonValue.Value;
  //senha
  Par := usuario.Get(1);
  lsenha := par.JsonValue.Value;


  dm.Qry.Close;
  dm.Qry.Params[00].AsString := lUsuario;
  dm.Qry.Params[01].AsString := uCript.Criptografa(lSenha,108);
  dm.Qry.Open;

  if dm.Qry.IsEmpty  = true then begin
    result := 'No!';
  end else begin
    result := 'OK!';
  end;


end;

procedure TfPrincipal.BtnConfirmarClick(Sender: TObject);
var
  Contato : TJsonObject;
  lJSO : String;
  jSontoSend : TStringStream;
  lResponse : String;
begin

  if trim(edlogin.Text) = '' then begin
    Showmessage('Campo login em branco, por favor preencha');
    exit;
  end;

  if trim(edsenha.Text) = '' then begin
    Showmessage('Campo Senha em branco, por favor preencha');
    exit;
  end;

  Contato := TJsonObject.Create;
  Contato.AddPair('login',TJsonString.Create(trim(edlogin.Text)));
  Contato.AddPair('senha',TJsonString.Create(trim(edlogin.Text)));

  lJSO := Contato.ToString;
  jSontoSend := tStringStream.Create(lJSO,TEncoding.ASCII);
  IdHTTP.Request.ContentType := 'application/json';
  lResponse := IdHTTP.Post(URL+Path+'ValidaUsuario',jSontosend);
  jSonToSend.Free;

  ShowMessage (lresponse);


end;