procedure TForm1.Action1Update(Sender: TObject);
begin
  if not Query1.Active then
    Action1.Enabled := True
  else
    Action1.Enabled := False;


（または
  Action1.Enabled := not Query1.Active;）
end;


procedure TForm1.Action2Update(Sender: TObject);
begin
  if  Query1.Active then
    Action2.Enabled := True
  else
    Action2.Enabled := False;

（または
  Action2.Enabled := Query1.Active;）
end;