Hola.
A golpe de ojo el problema está en la línea,
Código Delphi
[-]
Qry_ADO.SQL.Add( 'Where checktime between : pdate1 and : pdate2' );
quita los espacios entre los dos puntos y los nombres de parámetros.
Saludos
Edito: Tal como dijo
Sir16. ( No había visto su respuesta
)