Программа наподобие антивируса - Free Pascal

Формулировка задачи:

Нужно создать программу наподобие антивируса. Из файла tracert.exe в папке windows нужно взять сигнатуру (не менее 16 знаков (цифр)),ее нужно вписать в программу как константу.Далее эту сигнатуру программа должна проверять в каждом файле,который там есть. Если она будет такая же,программа должна выдать этот файл и путь к нему. Когда программа закончит все эти файлы проверять,то она должна написать "поиск окончен" Знаю, что нужно пользоваться программой winhex. Как выглядит эта сигнатура? Кто может сделать это задание или хотя бы рассказать как делать.

Решение задачи: «Программа наподобие антивируса»

Листинг программы

var 
  files : TStringList;
  s : string;
// ...
files := FileUtil.FindAllFiles('c:\windows\', '*.*', true); // <--- Вот оно
for s in files do findSign(s);
files.Free;

Объяснение кода листинга программы

Объявлены две переменные: files и s.
Переменная files инициализируется значением nil.
Переменная s инициализируется пустой строкой.
Выполняется функция FileUtil.FindAllFiles, которая ищет все файлы в указанной директории и поддиректориях.
Результат поиска сохраняется в переменной files.
Для каждого найденного файла выполняется функция findSign.
После выполнения всех итераций, переменная files освобождается с помощью метода Free.