type
TMyDataForm: class(TForm)
protected
procedure UpdateActions; override;
end;
implementation
procedure TMyDataForm.UpdateActions;
var
Disabled: Boolean;
begin
inherited;
Disabled := qry_edo_habestatus.value <> 'DES';
BTN1.Enabled := Disabled;
BTN2.Enabled := not Disabled;
BTN3.Enabled := not Disabled;
BTN4.Enabled := not Disabled;
BTN5.Enabled := not Disabled;
BTN6.Enabled := not Disabled
end;