Как в программе отсеч лишние знаки после запятой?

[t2skler]

Оптимизация, оптимизация, оптимизация [пена изо рта]
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
// c:=b/0.7; -1 строка лишнего кода
c:=Trunc((b/0.7)*10)/10;
// d:=a/30; -2 строка лишнего кода
d:=Trunc((a/30)*10)/10;
// e:=c-d; -3 строка лишнего кода
// f:=e*n; -4 строка лишнего кода
f:=Trunc(((c-d)*n)*100)/100;
// i:=d*5.5; -5 строка лишнего кода
i:=Trunc((d*5.5)*100)/100;
// s:=f+i; -6 строка лишнего кода, но я не уверен)
Edit3.Text:=FloatToStrF(f+i,ffFixed ,4,1);

и что мы получаем в рез-те: переменную e и s мы можем убрать (ибо нефиг ресурсы компьютера потреблять понапрасну :D) и мы избежали загрузки на цп под 100% Мб я и написал не правильно, но будьте внимательны: оптимизация есть везде!