for i := 2 to 13 do
begin
tmp:='DBEdit'+inttostr(i);
(FindComponent(tmp) as TDbedit).Enabled := false;
(findcomponent(tmp) as TDBedit).Color := clmenu;
end;
for i := 2 to 13 do
begin
tmp:='DBEdit'+inttostr(i);
(FindComponent(tmp) as TDbedit).Enabled := false;
(findcomponent(tmp) as TDBedit).Color := clmenu;
end;