Из Delphi в Excel

[Ky3Heu,]

Помогите решить трабл: Из проги надо получить список листов рабочей книги в Excel'е, выбирать нужные листы и записывать туда нужные данные. Вобщем сделать отчет по определенному шаблону. Но где-то в моем коде косяк.

procedure TMainF.N6Click(Sender: TObject);
var xl,sh        :Variant;
      i,x           :Integer;
      SheetList :TStringlist;
begin
SheetList := TStringList.Create;
xl := createoleobject('excel.application');

xl.displayalerts := false; //отключает запрос на сохранение
xl.workbooks.open(GetCurrentDir + '\rep\example.xls',UpdateLinks := 1);

//Вот тут выдает ошибку "Член группы не найден"  
for i := 1 to xl.Sheets.count do
    SheetList.Add(xl.sheets.item(i).name);

sh := XL.sheets.item[SheetList.IndexOfName('Журнал  несоответствий')+1];
end;

Код не весь но дальше там уже выгрузка. Офис 2007, Delphi XE. Помогите плиз кто может.

[psycho-coder]

Что бросается в глаза (если мне память не изменяет) скобки должны быть квадратные item[i]

for i := 1 to xl.Sheets.count do
    SheetList.Add(xl.sheets.item(i).name);

[Serge_Bliznykov]

свой совет не проверял!
но я бы в первую очеред озаботился тем, с чего начинается нумерация...

for i := 0 to xl.Sheets.count-1 do
    SheetList.Add(xl.sheets.item(i).name);

[Ky3Heu,]

Вот тут выдает ошибку "неверный индекс"

sh := XL.sheets.item[SheetList.IndexOfName('Журнал несоответствий')+1];

Пробовал и без +1 и загонять в интеджеровую переменную, один фиг та же ошибка.

[Ky3Heu,]

Разобрался. Надо было так сделать.

sh := XL.sheets.item[SheetList.IndexOf('Журнал несоответствий')+1];

Всем спасибо за помощь.