Зачем столько лишнего кода?
Вместо всего этого:
Код:
IFACE:= ADOQueryFase.FieldByName('MClose').AsBoolean;
if IFACE = 1 then
IFACEBool:=True
else IfaceBool:=False;
MainForm.MainMenu.MClose.Visible:=IFACEBool;
сразу
Код:
MainForm.MainMenu.MClose.Visible:= ADOQueryFase.FieldByName('MClose').AsBoolean;
По аналогии остальное так-же переделайте.