for I:= 0 to ControlCount - 1 do
begin
if Controls[i] is TDBEdit then
begin
TDBEdit(Controls[i]).ReadOnly := True;
TDBEdit(Controls[i]).TabStop := False;
TDBEdit(Controls[i]).Color := clMoneyGreen;
TDBEdit(Controls[i]).StyleElements := [seFont,seBorder];
end;
end;