[Aristarh Dark]

Код:

const 
  DocCount = 4;  //Количество обрабатываемых документов
var
  Counter:integer;
  WordList:TStringList;  //Список слов
  CurrentDoc:TStringList;  //обрабатываемый документ
  i,j:integer;
begin
  WordList:=TStringList.Create;
  CurrentDoc:=TStringList.Create;
  WordList.LoadFromFile(...);  //Загрузка файла со словами для поиска
  for i:=0 to WordList.Count-1 do
    begin
       Counter:=0;
       for j:=1 to DocCount do
          begin
             CurrentDoc.LoadFromFile(...);  //Загрузили документ в котором будем искать
             if Pos(WordList[i],CurrentDoc.Text)>0 then inc(Counter)
          end;
        ShowMessage('Слово "'+WordList[i]+'" встречается в '+IntToStr(Counter)+' документах');
    end;
  WordList.Free;
  CurrentDoc.Free;
end;

типа того

Кста, файл со словами для поска должен содержать по одному слову в каждой строке. Если это не так, то нужно его распарсить.