[Appolon]

Количество строк считается не в DBGrid'е а в Table

Код:

var i: integer;
XLApp,Sheet,Colum:Variant;
begin
  i:=ADOTable1.RecordCount;
  XLApp:= CreateOleObject('Excel.Application');
  XLApp.Visible:=true;
  XLApp.Workbooks.Add(-4167) ;
  XLApp.Workbooks[1].Worksheets[1].Name:='Количество строк';
  Sheet:=XLApp.Workbooks[1].Worksheets['Количество строк'];
  Sheet.Cells[1,1]:='Количество строк в таблице -'+IntToStr(i);
end;

В uses пропиши comobj.