Что-то не то с плагиатом.
1. Ограничение в 32 знака прекрасно реализуется свойством MaxLenField
2. Мне кажется, что вместо Copy(ss,1,32) лучше, в таких случаях, применять SetLength(ss,32). (Проверить надо)
3. Про бардак при вводе любых знаков, кроме '0'..'9','A'..'F', даже писать лень
Предлагаю:
code_33222.txt