[ecfisa]

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í:

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.