//我的文件很小的，4k左右，我想遍历目录树，然后分别吧每个文件读入到内存中去，在内存中查找
遍历目录树你应该会吧,先说说找到后如何读入内存(即不用显示出来),然后查找:
var
s: TStringList;
begin
s := TStringList.Create;
while {找到文件} do
begin
//装入文件:
s.LoadFromFile('c:/abc.txt');
//查找:
if Pos('hello', s.Text) then
//处理
end;
s.Free;
end;
假如你的文件不大的话,这样找应该不慢
