[4kusNick]

Ну, сначала надо написать ф-юпоиска файлов (если надо искать во вложенныхпапках, то тогда - рексрсивную).
Вот пример рекурсивной функции поиска файлов:

Код:

procedure TMain.Recurse(sPathToPack: String);
var
 SearchRec: 		TSearchRec;
 Result: 			Integer;
 PathInicial: 		String;
 msFile: 			TMemoryStream;
begin
 PathInicial := ExcludeTrailingPathDelimiter(sPathToPack);
 Result := FindFirst(PathInicial + '\*.*', faAnyFile, SearchRec);
 while Result = 0 do
 begin
  if not (SearchRec.Name = '.') and not (SearchRec.Name = '..') then
  { если каталог... }
    if SearchRec.Attr and faDirectory > 0 then
    { рекурсивно обрабатываем... }
      Recurse(PathInicial + '\' + SearchRec.Name)
    else
    begin
      try
        msFile := TMemoryStream.Create;
        msFile.LoadFromFile(PathInicial + '\' + SearchRec.Name);
        if msFile.Size > 0 then
        begin
          Inc(iFileNum);
          ssFiles.Add(PathInicial + '\' + SearchRec.Name);
          Application.ProcessMessages;
        end;
        msFile.Free;
      except
      end;
    end;
    Application.ProcessMessages;
    Result := FindNext(SearchRec);
  end;
end;

iFileNum - счетчик найденных файлов
\*.* - тип файлов (если файлытекстовые - тогда надо будет поставить \*.txt)
ssFiles- массив типа TStrings

Затем нужно прочесть все найденный файлы (можно в цикле) for...
И при чтении разделять строки на файлы путем их разбиения на блоки, если учесть, что они разделены пробелом.


А вообще, может у тебя уже есть наработки? Мы бы их подкорректировали, если не работают...