if qry_edo_habestatus.value='DES' then
begin
BTN1.Enabled:=true;
BTN2.Enabled:=false;
BTN3.Enabled:=false;
BTN4.Enabled:=false;
BTN5.Enabled:=false;
BTN6.Enabled:=false;
end
else
begin
BTN1.Enabled:=false;
BTN2.Enabled:=true;
BTN3.Enabled:=true;
BTN4.Enabled:=true;
BTN5.Enabled:=true;
BTN6.Enabled:=true;
end;