Редактиране на Excel файл чрез Delphi 2011 XE

[finalista]

Написха следния код, но за мое съжаление нито дава грешка, нито променя Excel файла (значи нищо не прави):

 try
XLS_Book := GetActiveOleObject('Excel.Application');
 except
try
  // ако няма инстанция, опит да се създаде нов Excel обект
  XLS_Book := CreateOleObject('Excel.Application');
except
  ShowMessage('Не може да се стартира Ексел / Excel не е инсталиран ?');
  Exit;
end;
 end;
 S := '1.xls';
 XLS_Book.Workbooks.Open(S);
  IR := GetLastLine(1);
 Edit1.Text := IntToStr(IR);
 for I := 1 to IR do
 begin
if (XLS_Book.Cells[i, 1].Value = Edit_A_.Text) then
  XLS_Book.Cells[i, 2].Value := Variant(Edit_B_.Text);
 end;
 XLS_Book.Workbooks[1].Save;
 XLS_Book.Workbooks[1].Close;