[Appolon]

Код:

var i: integer;
begin
  i:=ADOTable1.RecordCount;
  label1.Caption:='Количество строк в таблице -'+IntToStr(i);
end;