Como limitar ingreso de l 1 al 10 en un edit

[chino150]

ok
te espero

[[Caral]]

Hola
Bien: Cuando inicie el programa estaran en Blanco (vacios).
Pero en cuanto se trate de ingresar un dato se llenaran de ceros, los que no tengan ya un dato.
El problema es que lee TODOS los edits, entonces necesitan poseer un dato integer.
Es como se me ocurre.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var valor, i: integer;
        comp: TComponent;
begin
   for i := 1 to 3 do begin // la cantidad de edits que se tenga
   Valor:= 10;
   comp := FindComponent('Edit' + IntToStr(i));
   if TEdit(comp).Text = '' then
   begin
   TEdit(comp).Text := IntToStr(0);
   end;
   if TEdit(comp).Text <> '' then
   If Valor < StrToInt(TEdit(comp).Text) then
   Showmessage('es mayor de 10');
end;
end;

Saludos
DP: Dile a tu profesor que le esta pidiendo mucho a un novato.

[chino150]

Gracia Caral no tiene idea de lo abusadores que pueden ser los profesores en la Republica Dominicana