function ExecSql(const aSQL: string; ParamValues: array of variant; const aOkMess: string = ''; const aErrMess: string = ''): string;
Var
  i, c: integer;
  UniSql: TUniSql;
begin
  if aSql.IsEmpty then
    exit(constError + '. ' + constSqlIsEmpty);

  UniSql := CreateUniSql;

  UniSql.Transaction := CreateWrireTransaction(UniSql);
  UniSql.Transaction.StartTransaction;

  try
    UniSql.SQL.Text := aSql;
    try

     if High(ParamValues) < UniSql.Params.Count - 1 then
      c := High(ParamValues)
     else
      c := UniSql.Params.Count - 1;

      for i := 0 to c do
        if not VarIsEmpty(ParamValues[i]) then
        begin
          UniSql.Params[i].ParamType := ptInput;

          case VarType(ParamValues[i]) of
            varByte, varWord, varLongWord, varShortInt, varSmallint, varInteger:
              UniSql.Params[i].AsInteger := ParamValues[i];
            else
              UniSql.Params[i].Value := ParamValues[i];
          end;// case
        end;

      UniSql.Execute;

      if UniSql.Transaction.Active then
        UniSql.Transaction.Commit;

      result := '';

      if not aOkMess.IsEmpty then
        MyMessageBox(constAttention, constMsgSQLOk + aOkMess);

    except
      on e: exception do
      begin
        if UniSql.Transaction.Active then
          UniSql.Transaction.Rollback;

        result := 'Error in ExecSql, sql = ' + aSQL + ', ' + e.Message;

        if not aErrMess.IsEmpty then
          LogError(aErrMess + constMsgSQLErr, e, aSQL);

      end;// on e:
    end;// except
  finally
    FreeAndNil(UniSql);
  end;// finally

end;

      OLDLASTTIME := IncMillisecond(now, 0-UniServerModule.SessionTimeout);// старые записи, которые старше 15 мин(900000 мс), удалить
      UniSession.Log('OLDLASTTIME: ' + DateTimeToStr(OLDLASTTIME));

      if UniServerModule.NodeMode then// если программа запущена из-под HyperServer
        UniMainModule.ExecSql('DELETE FROM TWEBMON WHERE PROCID = :PROCID AND LASTTIME <= :OLDLASTTIME', [pid, OLDLASTTIME]) // удалить все, что связано с текущим процессом, т.к. через HyperServer может быть запущено несколько процессов
      else
        UniMainModule.ExecSql('DELETE FROM TWEBMON WHERE LASTTIME <= :OLDLASTTIME', [OLDLASTTIME]); // удалить все, что связано с текущим процессом