for i:=0 to self.ComponentCount-1 do
begin
if self.Components[i].ClassType=TDbedit then
(self.components[i] as Tdbedit).Enabled :=true;
end;
for i:=0 to self.ComponentCount-1 do
begin
if self.Components[i].ClassType=TDbedit then
(self.components[i] as Tdbedit).Enabled :=true;
end;