Ayuda por favor...

[[Delphius]]

¿Podrías por favor editar el mensaje y usar las etiquetas [ DELPHI ] [ /DELPHI ] (sin espacios)?

Esto hará que el código sea más legible.
Tengo una duda respecto al código que tienes... ¿Porqué haces que al presionar clic en el label ejecute la operación? Sería más indicado emplear el evento OnClick de un botón.

Por el tema del if, sería más correcto emplear un CASE. Su sintaxis es como sigue:

Código Delphi [-]
CASE variable of:
1: que hacer si es 1
2: que hacer si es 2
3: que hacer si es 3
...
n: que hacer si es n
else que hacer.... // en caso de no cumplir ningun valor. Opcional
end  // la sentencia case debe finalizar con end

Con esto ya tienes para arreglar un poco más tu código.
Perdona si soy duro... es que pedimos que las personas que preguntan se interioricen y participen del problema. Dijiste que te lo tomas en serio, pero es que si te lo tomaras más en serio, hubieras expuesto los detalles y los errores en vez de esperar a que los adinivinemos.

Prueba nuevamente siguiendo el case, no estás tan errado.

Saludos,