Строка есть строка и не нужно крутить с StrToInt и mod . Что тебе не понравилось в моем компоненте ? Ни проблем с отрицательными числами. Да и Case откомпилированное работает быстрее чем If_else и кодов меньше