Optimizar con Case XXX of

[Ruben_Cu]

Hola muchachos, yo pondría el uso de la olvidada propiedad Tag.
Esto es; asignaría a los 10 edit los valores de tag desde 1 hasta 10, y entonces usaría el Case..of mas o menos así.

With FormVentas do
   Case ActiveControl.tag of 
      1: "Lo que sea";
      2: "Lo que sea";
.
.
.
.
    10:"Lo que sea";
    end;

Espero te sea útil y simplifique tus códigos.
Saludos