Работает. Огромное спасибо.
Но, если ввести в поле Edit1, Edit2 не целое число, то вылезает ошибка

Цитата
Debugger exception Notofication
Project AppName.exe raised exception class EConvertError with message "0.01' is not a valid floating point value'. Process stopped.