var i: Integer;
begin
   for i := 0 to ComponentCount -1 do begin
      if Components[i] is TEdit then begin
         (Components[i] as TEdit).Color := clAqua;
         (Components[i] as TEdit).Enabled := True;
      end;
   end;
end;