Hola migueweb.
Dos cosas:
1) Indentá tu código con etiquetas, nos és más fácil de leer.
2) Cinco posts atrás te puse una función que redondea con las cifras decimales que quieras.
Se usa así:
Código:
Edit1.Text:= FloatToStr(Redondea(StrToFloat(Edit6.Text)+
StrToFloat(Edit8.Text)+StrToFloat(Edit9.Text)/3, 2));
Donde
Redondea es la función, el
primer parámetro es el número a redondear
y el
segundo parámetro es el
número de cifras decimales que queres obtener.
Saludos.