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í.
Código:
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