O también puedes probar esto:
Código Delphi
[-]
...............................
'WHERE P.clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
ADOQuery1.Open;
showmessage(IntToStr(AdoQuery1.RecordCount));
.........................
y nos dices el resultado que te salga. No te olvides de leer nuestra
guia de estilo por favor y utiliza etiquetas en tu codigo para que se vea mejor, en este caso [ delphi]tu codigo[ /delphi] sin el espacio, también los puedes encontrar en editor.
Saluditos