Hola
Olenkaguilar:
Para corregir tu problema te sugiero que en vez de utilizar un Edit como Edit1 uses un
SpinEdit de la paleta samples ( si quieres lo puedes llamar Edit1 y así no necesitas modificar tu código) y le asignes como minvalue 1 y como maxvalue 32, que son tus opciones y que asignes tu código además al evento OnChange del SpinEdit.
Para sumar 70 sólo debes incluir +70 en el valor del Edit2, de la siguiente manera:
Código Delphi
[-]Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);
Ojalá te haya podido ayudar
Salu2