Hola, creo que el problema lo tienes en el IF, prueba hacer la comparación de esta forma:if (Edit1->Text.ToInt() < 40000)
ToInt () -> Convierte la cadena en un entero.
Tambien existe ToIntDef (valor), esta funcion convierte la cadena en entero pero si hay algun error usa el valor por defecto que le hemos pasado por defecto.