应该是
with adoSys do
(Form1.FindComponent(FieldByName('MenuName').AsString) as TMenuItem).Enabled := Boolean(FieldByName('Enable').AsInteger);
with adoSys do
(Form1.FindComponent(FieldByName('MenuName').AsString) as TMenuItem).Enabled := Boolean(FieldByName('Enable').AsInteger);
for I := 0 to ComponentCount - 1 do
if Components[I] is TMenuItem then
if AdoSys.Locate('MenuName', TMemuItem(Components[I]).Name, []) then
TMemuItem(Components[I]).Enabled := AdoSys.FieldByName('Enable').AsInteger <> 0;