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 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.