procedure TAlarmMgrDlg.Update(Alarm: TAlarm);
var
  UserName: string;
begin
  DataModule1.AlarmQuery.Close;
  DataModule1.AlarmQuery.SQL.Clear;
  DataModule1.AlarmQuery.SQL.Add('SELECT * FROM ALARMS');
  DataModule1.AlarmQuery.SQL.Add('WHERE TAGNAME = ''' + string(Alarm.Tagname) + '''');
  DataModule1.AlarmQuery.SQL.Add('AND ALARM_NAME = ''' + string(Alarm.Name) + '''');
  DataModule1.AlarmQuery.SQL.Add('AND ALARM_STATE = 2');
  DataModule1.AlarmQuery.Open;

  while not DataModule1.AlarmQuery.EOF do
  begin
    DataModule1.AlarmQuery.Edit;
    try
      DataModule1.AlarmQuery.FieldValues['ACKTIME'] := Now;
      DataModule1.AlarmQuery.FieldValues['ALARM_STATE'] := 1;

      UserName := 'No User';
      if Alarm.IsAutoAck then
        UserName := 'AUTO'
      else
      if Alarm.LogUserID then
        UserName := ThisUserID
      else
      if Assigned(UserProfile) then
        UserName := UserProfile.fName;

      DataModule1.AlarmQuery.FieldValues['USER_ACK'] := UserName;
      DataModule1.AlarmQuery.Post;
    except
      DataModule1.AlarmQuery.Cancel;
      raise;
    end;
    DataModule1.AlarmQuery.Next;
  end;
end;