[ctpaxm]

если честно, то не знаком...

Код:

ADOQuery1.Active:= False;
adoquery1.sql.Add('select');
adoquery1.SQL.add('COUNT(ID) as CountField');
adoquery1.SQL.add('from ' + ADOTable1.TableName);
adoquery1.Active:= true;
ADOQuery1.ExecSQL;
n:=ADOQuery1.FieldByName('CountField').AsInteger;
showmessage(Inttostr(n));

вернусь с работы, буду работать