Como hacer busqueda en Unit y lo enviar para excel?

[[duilioisola]]

Mediante FindFirst, FindNext, deberás recorrer todos los archivos *.pas y *.dfm.
Por cada archivo:
Cargas cada archivo en un TStringList.

Código Delphi [-]
Lista := TStringList.Create; 
Lista.LoadFromFile(archivo);

Luego recorres cada linea del TStringList buscando las tablas y el nombre de la Unit

Código Delphi [-]
for i := 0 to Lista.Count -1 do
begin
   ...
end;