Поиск FOSS SHA1

Я ищу реализацию FOSS SHA1 для использования с Delphi (7).

Желательно что-нибудь маленькое, может быть, даже автономный SHA1, а не прошлое из огромной библиотеки. Простота установки и использования - это хорошо, но, конечно, надежность - это приоритет номер 1.

Обновление: Спасибо, Роб, этот код работает как мечта