подсчет окрашенных ячеек Excel в Delphi с суммированием по файлам

[dreaminn]

Стоит задача обработать анкеты,заполненные в Excel 2007,в Delphi XE.
Требуется подсчитать окрашенные ячейки из трех столбцов,но отдельно в каждом для последующего суммирования результата по трем. Анкет нное количество.
Возник вопрос при переборе файлов. Файлы открываются,но сумма баллов по всем файлам не находится, а находится лишь по первому и по нему же выводится. что-то не так с циклом for?
заранее спасибо за ответ=)

procedure TForm4.Button1Click(Sender: TObject);
const
xlNone = -4142;
Number = 150;  //количество ячеек в столбце выставления баллов
  var
  ExApp, ExBook, ExSheet, ExRng, ExCell : Variant;
  FileName : String;
  i, Ball_1, Ball_2, SumBall , FindRes: Integer;
  SR: TSearchRec;
   begin
   FindRes := FindFirst('Анкета ВПП_?.xlsx', faAnyFile, SR);
   while FindRes = 0 do // пока мы находим файлы (каталоги), то выполнять цикл
  begin
  ExApp := CreateOleObject('Excel.Application');
  ExApp.Visible := True;
  FileName := ExtractFilePath(Application.ExeName) + SR.Name;
  ExBook := ExApp.WorkBooks.Open(FileName:=FileName);
  ExSheet := ExBook.WorkSheets[1];
  ExRng := ExSheet.Range['C6:D176'];
  Ball_1 := 0;
  Ball_2 := 0;
  SumBall:= 0;
   for i := 1 to ExRng.Rows.Count do begin
       if ExRng.Cells[i, 1].Interior.ColorIndex = xlNone then Inc(Ball_1);
    if ExRng.Cells[i, 2].Interior.ColorIndex = xlNone then Inc(Ball_2);
     SumBall:= SumBall+2*(Number-Ball_1) + (Number-Ball_2);
end;
FindRes := FindNext(SR); // продолжение поиска по заданным условиям
end;
FindClose(SR); // закрываем поиск
Panel1.Caption := 'Сумма баллов: ' + IntToStr(SumBall);
end;

[SNUPY]

ИМХО:

procedure TForm4.Button1Click(Sender: TObject);
const
xlNone = -4142;
Number = 150;  //количество ячеек в столбце выставления баллов
  var
  ExApp, ExBook, ExSheet, ExRng, ExCell : Variant;
  FileName : String;
  i, Ball_1, Ball_2, SumBall , FindRes: Integer;
  SR: TSearchRec;
   begin
   FindRes := FindFirst('Анкета ВПП_?.xlsx', faAnyFile, SR);
   while FindRes = 0 do // пока мы находим файлы (каталоги), то выполнять цикл
  begin
  ExApp := CreateOleObject('Excel.Application');
  ExApp.Visible := True;
  FileName := ExtractFilePath(Application.ExeName) + SR.Name;
  ExBook := ExApp.WorkBooks.Open(FileName:=FileName);
  ExSheet := ExBook.WorkSheets[1];
  ExRng := ExSheet.Range['C6:D176'];
  Ball_1 := 0;
  Ball_2 := 0;
  SumBall:= 0;// в этой строке проблема. Нужно вынести за цикл
   for i := 1 to ExRng.Rows.Count do begin
       if ExRng.Cells[i, 1].Interior.ColorIndex = xlNone then Inc(Ball_1);
    if ExRng.Cells[i, 2].Interior.ColorIndex = xlNone then Inc(Ball_2);
     SumBall:= SumBall+2*(Number-Ball_1) + (Number-Ball_2);
end;
FindRes := FindNext(SR); // продолжение поиска по заданным условиям
end;
FindClose(SR); // закрываем поиск
Panel1.Caption := 'Сумма баллов: ' + IntToStr(SumBall);
end;

[dreaminn]

Да,действительно,вынести эту строку перед циклом While и вынести еще и строку SumBall:= SumBall+2*(Number-Ball_1) + (Number-Ball_2) за цикл for
Спасибо!