Не умею открывать файлы, найденные "FindFirst"

... // кусочек необходимого кода
    if ExtractFileExt(Dir + SearchRec.Name) = EXT then
         Memo1.Lines.Add(Dir + SearchRec.Name);
...

//Диалог открытия файлов.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  //Разрешаем множественный выбор файлов.
  Od.Options := Od.Options + [ofAllowMultiSelect];
  //Начальная установка директория в диалоге.
  //ParamStr(0) - полный путь исполняемого файла программы.
  //ExtractFilePath(ParamStr(0)) - директорий, в котором расположен исполняемый файл программы.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0));
  //Запуск диалога.
  if not Od.Execute then
    Exit;
  //Перебор выбранных файлов.
  for i := 0 to Od.Files.Count - 1 do
    if FileExists(Od.Files[i]) then //Если файл существует.
    begin
           Xls_Open_F1 (Od.Files[i], StringGrid1, StringGrid2);
           Xls_Save_F1 (Od.Files[i], StringGrid1, StringGrid2);
   end; 
...

if ExtractFileExt(Dir + SearchRec.Name) = EXT then
  begin
           Xls_Open_F1 (Dir + SearchRec.Name, StringGrid1, StringGrid2);
           Xls_Save_F1 (Dir + SearchRec.Name, StringGrid1, StringGrid2);
   end;

if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        FindIt(Dir + SearchRec.Name)
      else
    if ExtractFileExt(Dir + SearchRec.Name) = EXT then
         l.Items.Add(Dir + SearchRec.Name);
         if ExtractFileExt(Dir + SearchRec.Name) = EXT then
 
            list.Items.Add(ChangeFileExt(searchrec.Name,''));
    until
      FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  end;

  list.Items.Add(ChangeFileExt(searchrec.Name,''));

Xls_Open_Ivanov (OpenDialog, StringGrid1, StringGrid2);

Xls_Open_Ivanov (OpenDialog, StringGrid1, StringGrid2);

procedure TMyForm.ProcessingFiles(Sl: TStrings; ...);

procedure Xls_Open_(XLSFile:string; Grid:TStringGrid);
 const
  xlCellTypeLastCell = $0000000B;
var
  ExlApp, Sheet: OLEVariant;
  i, j, r, c:integer;
begin
  //создаем объект Excel
  ExlApp := CreateOleObject('Excel.Application');
 
  //делаем окно Excel невидимым
  ExlApp.Visible := false;
  //открываем файл XLSFile
  ExlApp.Workbooks.Open(XLSFile);
 
  //создаем объект Sheet(страница) и указываем номер листа (1)
  //в книге, с которого будем осуществлять чтение
  Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];
  //активируем последнюю ячейку на листе
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
 
    // Возвращает номер последней строки
    r := ExlApp.ActiveCell.Row;
    // Возвращает номер последнего столбца
    c := ExlApp.ActiveCell.Column;
 
    //устанавливаем кол-во столбцов и строк в StringGrid
    Grid.RowCount:=r;
    Grid.ColCount:=c;
    //считываем значение из каждой ячейки и копируем в нашу таблицу
     for j:= 1 to r do
       for i:= 1 to c do
         Grid.Cells[i-1,j-1]:= sheet.cells[j,i];
 //закрываем приложение Excel
 ExlApp.Quit;
 //очищаем выделенную память
 ExlApp := Unassigned;
 Sheet := Unassigned;
end;

Xls_Open_Ivanov (OpenDialog, StringGrid1, StringGrid2);

var
  sl  : TStringList;
// Процедура поиска файлов по расширению
procedure FindFiles (Dir, EXT : string);
var
  SearchRec  : TSearchRec;
begin
  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        FindFiles(Dir + SearchRec.Name + '\', EXT)
      else
    if ExtractFileExt(Dir + SearchRec.Name) = EXT then
         sl.Add(Dir + SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  sl := TStringList.Create;
  FindFiles ('Папка в которой надо искать\', '.xls');
  for i:=0 to sl.Count - 1 do
    Xls_Open_(sl.Strings[i], Ваш_TStringGrid);
  sl.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  sl := TStringList.Create;
 // FindFiles ('Папка в которой надо искать\');
  for i:=0 to sl.Count - 1 do
    Xls_Open_(sl.Strings[i], Ваш_TStringGrid);
  sl.Free;
end;

FindFiles ('Папка в которой надо искать\', '.xls');

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j : Integer;
  Od : TOpenDialog;
  sFolder,find: String;
begin
if GetFolderDialog(Application.Handle, 'Выберите папку', sFolder) then
    FindFiles(sFolder);
 
find := 'Петров'; // часть имени файла
  for i := 0 to Memo1.Lines.Count-1 do
 
  If Pos(find, Memo1.Lines[i])>0 then
  begin
    Memo1SelStart := Pos(find,Memo1.Lines[i])-1;
           Xls_Open_Excel (Memo1.Lines[i], StringGrid1, StringGrid2);
           Xls_Save_Excel (Memo1.Lines[i], StringGrid1, StringGrid2);
  end;

Xls_Open_Excel (Memo1.Lines[i], StringGrid1, StringGrid2);
           Xls_Save_Excel (Memo1.Lines[i], StringGrid1, StringGrid2);