[Vocabulary]

datetostr включена в запрос, но это функция дельфийская и сервер СУБД ее не знает.

Код:

SQL.Add('Select count(*) from chitateli where [datereg]="'+datetostr(dn)+'"');