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;