[Skey]

Подставила вместо datetostr(dn) строковую переменную, но все равно выводит ноль. Теперь код имеет следующий вид:

Код:

Cells[i,1]:=inttostr(form4.ADOQuery1.SQL.Add('Select count(*) from chitateli where [datereg]="daten"'));