Проверь и можешь обновить (предложенную функцию можно было бы и на ассемблере переписать).
Проверить наличие ошибки можно по схеме в первом посте, если вместо Edit поставить Memo и заполнить текстом больше 1000 символов - результат SHA-512 должен отличаться для Delphi и FPC.