как ограничить ввод цифр в поле , что бы после запятой было 2 знака

вот использую измененный код delphi от ввода Ip .
code_36832.txt