creacion

[roman]

Los muy puntillosos añadirían al principio:

Código Delphi [-]
if Sender is TEdit

Es que hay cada exagerado

// Saludos

[delphi.com.ar]

Otra opción puede ser que el scope de la variable edt1 en lugar de estar dentro del procedimiento create, pertenezca a la clase...
¿Porqué creas un objeto tan estático, que aparentemente siempre se crea, en tiempo de ejecución?

[jachguate]

Empezado por roman

Los muy puntillosos añadirían al principio:

Código Delphi [-]
if Sender is TEdit

Es que hay cada exagerado

// Saludos

Suelo implementar esta interfaz "TPuntilloso", por eso he hecho un casteo seguro, con as. Si el sender no fuese un TEdit, saltará la excepción EInvalidTypeCast, protegiendo el código a la perfección, y siguiendo correctamente las sanas prácticas de programación: Si se rompe el contrato, se eleva una excepción.

Claro, con is se podria evitar esta excepción y no hacer nada, pero parece que en esta situación bastará con que se eleve.

Hasta luego.

[roman]

¡Ah maestrooo! ¡Cuánta razón tienes! (De verdad)

Es esa costumbre mía de evitar el salto de excepciones si puedo verificarla previamente.

// Saludos