for i := 0 to ComponentCount -1 do begin
if Components[i] is TDBEdit then
TDBEdit( Components[i] ).ReadOnly := True;
if Components[i] is TDBLookupComboBox then
TDBLookupComboBox( Components[i] ).ReadOnly := True;
if Components[i] is TDBMemo then
TDBMemo ( Components[i] ).ReadOnly := True;
if Components[i] is TMaskEdit then
TMaskEdit ( Components[i] ).ReadOnly := True;
if Components[i] is TDBCheckBox then
TDBCheckBox ( Components[i] ).ReadOnly := True;
if Components[i] is TDBRadioGroup then
TDBRadioGroup ( Components[i] ).ReadOnly := True;
end;