Funcion cambiar propiedades componente(variable)

[[Caral]]

Hola

Código Delphi [-]
Procedure Cambio;
var
   dif,  i : Integer;
  comp : TComponent;
begin
  Dif:= 5; // por ejemplo
  for i := 1 to 10 do begin
  comp := FindComponent('Edit' + IntToStr(i));
  If TEdit(comp).text <> IntToStr(Dif) then
  begin 
  TEdit(comp).Color:= clRed;
  end;
end;

Saludos

Edito: Corregido.