Не получается поиск в файлах Excel через Listbox..ПОМОГИТЕ

[Al_Sha]

Здравствуйте!
Прошу помощи...
Задача в общем то простая.
Необходимо через ListBox (в ListBox уже добавлено несколько файлов Excel) поочередно открывая (инициализируя) файлы Excel
произвести в них поиск определенного текста, и если он находится в файле, то сохранить
файл с именем найденного текста.
Делаю как ниже приведено, но что-то не работает...

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Rnge: OleVariant;
k:Integer;
begin
for k:=0 to ListBox1.ItemIndex-1 do begin
E.WorkBooks.item(ListBox1.Items[ListBox1.ItemIndex]).Activate;
Rnge := E.ActiveWorkBook.ActiveSheet.Cells;
Rnge := Rnge.Find('40.10.2');
if Pointer(IDispatch(Rnge)) <> nil then
Rnge.Interior.Color := clFuchsia;
E.WorkBook.SaveAs(FileName:=(Rnge.V alue)+' .xls');
end;
end;

Почему-то не идет перебор и файл не сохраняется...
Подскажите, что не так...
Заранее благодарен
Al_Sha