Hola...
¿Exáctamente en que línea del código se produce el error?
Si es en:
Código Delphi
[-]
DiaDiferencia := Qry.FieldByName('DiasDif').AsInteger;
puedes probar usando:
Código Delphi
[-]
DiaDiferencia := Qry.Fields[0].AsInteger;
Ya que la consulta solo devuelve un campo.
Saludos...