[Dzer]

Спасибо за совет и теперь новая проблема, программа с 97-2000 офисом работает нормально в 2010 офисе вылетает ошибка:
Project ....exe raised exception class EOLeSysError with message 'Член группы не найден'. ...
Вот код с местом где вылетает ошибка:

Код:

            For i := 0 to Form1.Files.Items.Count - 1 do
              begin
                TBook := XLApp.Workbooks.Open(Form1.Files.Items.Strings[i]);
                TBook.Worksheets[1].SaveAs[Path + 'tmp1',3,False];
                TBook.Worksheets[2].SaveAs[Path + 'tmp2',3,False];
                TBook.Close[False];
                ReadFile(1,Xn1,Yn1,Xk1,Yk1,0,0,0,0);
                ReadFile(2,Xn2,Yn2,Xk2,Yk2,0,0,0,0);
              end;

Bargest: не забываем про оформление кода!

Я так понимаю для 2010 офиса как то по другому надо переписать обращение к Екселевской книге, как?