[pesi]

вот вроде работает

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
e : OleVariant;
i, p, u : integer;
begin
e:= CreateOleObject('Excel.Application');
e.Visible:=true;

for u:=1 to listbox1.Count do
begin
 e.WorkBooks.open(ExtractFilePath(ParamStr(0))+listbox1.Items[u-1]);
  p:=0;
  for  i:=1 to e.WorkSheets.count do
  e.Sheets[i].SELECT;
  begin
    try
     e.cells.Find('7').select;
     inc(p);
    except
   end;
  if p>0 then
   begin
    E.activeWorkBook.SaveAs(ExtractFileDir(ParamStr(0))+'\' + '-' + listbox1.Items[u-1]);
    E.activeWorkBook.close;
   end;
 end;
end;
E.Quit;
E := Unassigned;
end;