Ошибка при удалении строк в Экселе

[reihtmonbern]

Здравствуйте любители острых ощущений подскажите пожалуйста
использую ниже переведенный код для поиска и удаления в экселе строк
в итоге ошибка выскакивает не работает

var
     XL: Variant;
     i: Integer;
begin
 {не забудьте включить ComObj в список используемых модулей}
 XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта
 XL.WorkBooks.add;
 XL.WorkBooks.Open('C:\DB G3\DOC\3L.xls');
 XL.Visible:=true;
for I := 50 downto 1 do
   begin
     if XL.Cells[I,1].value='SDF' then
        begin
           XL.Rows[I].delete;
        end;
   end;
end;


end.

во вложении сама программа и статья из инета ....
подскажите мне пожалуйста а я вам за это кренделек подарю




___________________________
ДЛЯ ОФОРМЛЕНИЯ КОДА НУЖНО ЗАВЕРШАЮЩИЙ ТЕГ
ИСПОЛЬЗОВАТЬ НЕ [\code], а [/code]

Модератор!