Como contar los registros en un archivo de Excel

[carlos gonzalez]

Para hacer este proceso utilizo Delphi 7, les pongo un parte del codigo

Código Delphi [-]
 
AdmonQuint.ExcelApplication1.Workbooks.Open(AdmonQuint.Abrir.FileName,null,null,null,null,null,null,  null,null,null,null,null,null,null,null,0);
    Hoja:= AdmonQuint.ExcelApplication1.Sheets[1] as _Worksheet;
    total:=0;
    CTE:='1400A';
    USR:='00784';
    fec:='20080616';
    mes:='200806';
    while length(hoja.Cells.Item[total+1,3])>0 do
    total:=total+1;
 
    datam.SDSms1.Active:=false;
    datam.SDSms1.Active:=true;
     for r:=2 to total do
     begin
        datam.SDSms1.Insert;
        datam.SDSms1.FieldByName('CTE').AsString:=CTE;
         for c:=3 to 16 do
         begin
           VALOR:=hoja.Cells.Item[r,c];
           datam.SDSms1.FieldByName(datam.SDSms1.Fields.FieldByNumber(c-1).FieldName).AsString:=VALOR;
         end;
         datam.SDSms1.Post;
     end;
       datam.SDSms1.ApplyUpdates(0);
     except
        MessageDlg('Excel no se pudo inciar.',mtError,[mbOk],0);
        exit;
     end;
      AdmonQuint.ExcelApplication1.Quit;
      AdmonQuint.ExcelApplication1.Disconnect;