Кода немного, и это хорошо. Маленький модуль, который справляеться с поставленной целью. Для новичков сойдет!

Настоятельно рекомендую избавиться от SysUtils в uses, он здесь ни к чему.