Проблемы с вычислениями

[grafgrial]

Такая проблема
необходимо что бы был маленький калькулятор вот с такими функциями
есть - форма

не могу сделать так чтобы нормально вычисляло, почему то получается например за место 36 полнейшая ерунда 0,23Е234 (типа такого), хотелось все правильнее записать.
1) при выборе опред строки в комбобокс (их 3) 150,200,300(сами строки) в текст1 выходило 0.21, 0.28, 0.42 (соответственно)
2) при вводе длины модуля вычислялось 5 строка по формуле 3/2(по строчк)
3) при вводе ширины модуля 6 строка по формуле 4/2 (по строчк)
4)самое сложное кагда вычисляешь 5 или 6 строку(должно получится целое число без запятых)
5) 7 строка по формуле 5*2
6) 8 строка по формуле 6*2
остальное я додумаюсь, надеюсь

ПРИМЕР(по длине):
-выбераешь 150 в сомбобокс, а во второй строке вылазит 0,21
-вводишь 5
-5/0,21=23,80 (надо чтобы было написано 27, если больше 23,5, если меньше 23, т.е как в екселе)
-23*0,21=4,83
Хотелось бы чтобы все цифры выводились максимально 2 цифрами после запятой

[p51x]

А код мы телепатически прочитаем? У вас ошибка.

[grafgrial]

procedure TForm1.tmr2Timer(Sender: TObject);
var a, b, ad: integer; c, f: real;
begin
if (Edt1. Text<>'') and (Edt2. Text<>'') then begin
a:=StrToInt (Edt1.Text);
b:=StrToInt (Edt2.Text);
ad:=Integer (Edt3.Text);
c:= a/ad;
Edt4.Text:= FloatToStrF (c, ffGeneral, 6, 2);
end;
end;
Я не стал дальше писать потому что если первый выдает неправильно...