Fórum Acess violation no delphi xe8 #560039

function TServerMethods1.updatesenha_integer(login, senha: string): Integer;
begin
Result := -1 ;

 with Fqry_UpdateSenha do
 begin
   close ;
   SQL.Clear ;
   sql.Add('update tb_login_app_mobile set Ds_senha =:Ds_senha where Nr_Matricula =:Nr_Matricula');
   ParamByName('Ds_Senha').AsString := senha;
   ParamByName('Nr_Matricula').AsString := login;
   ExecSQL;
   Result := 0;
 end;
 Fqry_QTL.Close ;

end;

procedure TfrmAtualizarSenha.btnUpdateClick(Sender: TObject);
var
  x: TServerMethods1Client;
  R: Integer;
begin

  if x = nil then
   x := TServerMethods1Client.Create(ClientModule1.DSRestConnection1);

  R := x.updatesenha_integer(v_nr_matricula, edtConfirmarNovaSenha.Text);

  if R > -1 then
    ShowMessage('Senha atualizada com sucesso!')
  else
    ShowMessage('Erro ao tentar atualizar a senha!');

end;