...

type TRecOptions = record// для массива параметров
  nam: string;
  val: string;
  Def: variant;
end;

Type TArrOptions = array of TRecOptions;// массив параметров

....

Var
 ArrOptions: TArrOptions;

....

implementation
.....

procedure MyStringToStream(const AString: string; out AStream: TStream);
begin
  AStream := TStringStream.Create(AString);
end;

function MyStreamToString(aStream: TStream): string;
var
  SS: TStringStream;
begin
  if aStream <> nil then
  begin
    SS := TStringStream.Create('');
    try
      SS.CopyFrom(aStream, 0);  // No need to position at 0 nor provide size
      Result := SS.DataString;
    finally
      SS.Free;
    end;
  end else
  begin
    Result := '';
  end;
end;


procedure SaveParamsAllUsers();
var
 JSONObject: TJSONObject;
 Stream: TStream;
 i: smallint;
begin
  if Length(ArrOptions) <= 0 then exit;//если массив пуст, то сохранять нечего
  JSONObject := TJSONObject.Create;
  Stream := TMemoryStream.Create;
  try
    //добавляем пару ("имя":"значение")

    for I := 0 to High(ArrOptions) do
      JSONObject.AddPair(ArrOptions[i].nam, ArrOptions[i].val);
    with dm.qOptions do
    begin
      Close;
      DeleteWhere;
      AddWhere('ParamName = ' + QuotedStr('SettingsAllUsers'));//добавляем условие, что нам нужен массив параметров SettingsAllUsers из таблицы
      Open;

      if RecordCount > 0 then
        Edit
      else
        Append;//если первый раз настройки сохраняем, то добавляем запись

      MyStringToStream(JSONObject.ToString, Stream);
      Stream.Position := 0;
      FieldByName('ParamName').AsString := 'SettingsAllUsers';
      TBLOBField(FieldByName('ParamVal')).LoadFromStream(Stream);
      post;
    end;// with

  finally
    FreeAndNil(JSONObject);
    FreeAndNil(Stream);
  end;
end;

procedure LoadParamsAllUsers();
var
 JSONObject: TJSONObject;
 Stream: TStream;
 s: string;
 i: smallint;
begin
  if not DM.connPremier.Connected then exit;

  JSONObject := TJSONObject.Create;
  Stream := TMemoryStream.Create;
  with dm.qOptions do
  try
    //добавляем пару ("имя":"значение")

    Close;
    DeleteWhere;
    AddWhere('ParamName = ' + QuotedStr('SettingsAllUsers'));// нам нужен какой-то определенный масив настроек, например, для окна fmEdit и т.п.
    Open;

    if RecordCount <= 0 then exit;

    Stream.CopyFrom(CreateBlobStream(dm.qOptionsParamVal, bmRead), 0);
    Stream.Position := 0;
    s := MyStreamToString(Stream);

    JSONObject :=  TJSONObject(TJSONObject.ParseJSONValue(s));//парсим
    if JSONObject.Size <= 0 then exit;

    SetLength(ArrOptions, JSONObject.Size);
    for I := 0 to High(ArrOptions) do
      begin // записываем параметры в массив параметров
        ArrOptions[i].nam := JSONObject.Get(i).JsonString.Value;;
        ArrOptions[i].val := JSONObject.Get(i).JsonValue.Value;
      end;

  finally
    FreeAndNil(JSONObject);
    FreeAndNil(Stream);
    dm.qOptions.close;
  end;
end;

Function GetAllUsersParamS(const ParamName: string): string;
Var
 i: smallint;
begin
//передаем имя параметра, а получаем значение параметра
  for I := 0 to High(ArrOptions) do
    if AnsiUpperCase(ArrOptions[i].nam) = AnsiUpperCase(ParamName) then
    begin
      result:= ArrOptions[i].val;
      Break;
    end;
end;

procedure SetAllUsersParamS(const ParamName, ParamVal: string);
Var
 i: smallint;
begin
//передаем имя параметра и значение параметра, которое нужно запись будет в базу
  for I := 0 to High(ArrOptions) do
    if AnsiUpperCase(ArrOptions[i].nam) = AnsiUpperCase(ParamName) then
    begin
      ArrOptions[i].val := ParamVal;
      exit;
    end;

//если нужного параметра нет, то добавляем в массив новый (потом он автоматически будет сохранён)
  SetLength(ArrOptions, length(ArrOptions) + 1);
  ArrOptions[length(ArrOptions) - 1].val := ParamVal;
  ArrOptions[length(ArrOptions) - 1].nam := ParamName;
end;

procedure PropertiesStore(DoStore: boolean; form: TForm; AComponent: TComponent; const AProps: TStrArray);
Var
 i:integer;
 cxPropertiesStore1: TcxPropertiesStore;
 myBlob: TBlobStream;
begin
  if UserData.id = '' then exit;//

  cxPropertiesStore1 := TcxPropertiesStore.Create(Application);
  try
   cxPropertiesStore1.StorageType := stStream;

    with TcxPropertiesStoreComponent(cxPropertiesStore1.Components.Add) do
      begin
        Component := AComponent;
        for I := 0 to Length(AProps) - 1 do Properties.Add(AProps[i]);
      end;//with

    with dm do
    begin
      if uOptionsUsers.Active then uOptionsUsers.Close;
      uOptionsUsers.DeleteWhere;
      uOptionsUsers.AddWhere('id_user = :id_user');
      uOptionsUsers.AddWhere('ParamName = :ParamName');
      uOptionsUsers.AddWhere('FormName = :FormName');

      uOptionsUsers.ParamByName('id_user').Value   := UserData.id;
      uOptionsUsers.ParamByName('ParamName').Value := AComponent.Name;
      uOptionsUsers.ParamByName('FormName').Value  := Form.Name;
      uOptionsUsers.Open;

       if DoStore then
        begin
          //сохраняем настройки в поток
          if uOptionsUsers.RecordCount <= 0 then
            uOptionsUsers.Append//если ещё ни разу не сохраняли настроки, то создаем новую запись
          else
            uOptionsUsers.edit;//редактируем

            uOptionsUsers.FieldByName('id_user').Value   := UserData.id;
            uOptionsUsers.FieldByName('ParamName').Value := AComponent.Name;
            uOptionsUsers.FieldByName('FormName').Value  := Form.Name;

            myBlob := TBlobStream.Create(uOptionsUsersParamVal, bmReadWrite);
            cxPropertiesStore1.StorageStream := myBlob;
            cxPropertiesStore1.StorageStream.Position := 0;
            TBlobField(uOptionsUsers.FieldByName('ParamVal')).LoadFromStream(cxPropertiesStore1.StorageStream);
            cxPropertiesStore1.StoreTo;
            uOptionsUsers.Post;
        end
      else
        begin
          //читаем настройки из потока
          if uOptionsUsers.RecordCount > 0 then
          begin
            cxPropertiesStore1.StorageStream := uOptionsUsers.CreateBlobStream(uOptionsUsersParamVal, bmRead);
            cxPropertiesStore1.StorageStream.Position := 0;
            cxPropertiesStore1.RestoreFrom;
          end;
        end;//else

    end;//with
  finally
    if Assigned(myBlob) then
      myBlob.Free;

    DM.uOptionsUsers.close;
    FreeAndNil(cxPropertiesStore1);
  end;
end;


procedure PropertiesStoreCxGrid(DoStore: boolean; form: TForm; dbg: TcxCustomGridTableView);
Var
 myBlob: TBlobStream;
begin
  if UserData.id = '' then exit;

  if not dm.connPremier.Connected then exit;
  try

    with dm do
    begin
      if uOptionsUsers.Active then uOptionsUsers.Close;
      uOptionsUsers.DeleteWhere;
      uOptionsUsers.AddWhere('id_user = :id_user');
      uOptionsUsers.AddWhere('ParamName = :ParamName');
      uOptionsUsers.AddWhere('FormName = :FormName');

      uOptionsUsers.ParamByName('id_user').Value   := UserData.id;
      uOptionsUsers.ParamByName('ParamName').Value := dbg.Name;
      uOptionsUsers.ParamByName('FormName').Value  := Form.Name;
      uOptionsUsers.Open;

      if DoStore then
        begin
          //сохраняем настройки в поток
          if uOptionsUsers.RecordCount <= 0 then
            uOptionsUsers.Append//если ещё ни разу не сохраняли настроки, то создаем новую запись
          else
            uOptionsUsers.edit;//редактируем

            uOptionsUsers.FieldByName('id_user').Value   := UserData.id;
            uOptionsUsers.FieldByName('ParamName').Value := dbg.Name;
            uOptionsUsers.FieldByName('FormName').Value  := Form.Name;

            myBlob := TBlobStream.Create(uOptionsUsersParamVal, bmReadWrite);
            myBlob.Position := 0;
            TBlobField(uOptionsUsers.FieldByName('ParamVal')).LoadFromStream(myBlob);
            dbg.StoreToStream(myBlob);
            uOptionsUsers.Post;
        end
      else
        begin
          //читаем настройки из потока
          if uOptionsUsers.RecordCount > 0 then
            dbg.RestoreFromStream(uOptionsUsers.CreateBlobStream(uOptionsUsersParamVal, bmRead));

        end;

    end;//with
  finally
    if Assigned(myBlob) then
      FreeAndNil(myBlob);

    DM.uOptionsUsers.close;
  end;
end;

procedure TStorageKvx.StorePropertiesToDB(const Form: TForm; const AComponent: TComponent; const AProps: TStrArray);
Var
 cxPropertiesStore1: TcxPropertiesStore;
 q: TpFibQuery;
 stream: TMemoryStream;
begin
  if not DM.fibDB.TestConnected then exit;
  if not Assigned(AComponent) then exit;

  q := dm.CreateFibQuery;
  cxPropertiesStore1 := TcxPropertiesStore.Create(Application);
  stream := TMemoryStream.Create;
  try
    SetStoreQueryParams(q);
    q.SQL.Text := constStoreSQL;
    cxPropertiesStore1.StorageName := Form.ClassName;
    cxPropertiesStore1.StorageType := stStream;

    with TcxPropertiesStoreComponent(cxPropertiesStore1.Components.Add) do
    begin
      Component := AComponent;
      for var I := low(AProps) to High(AProps) do
        Properties.Add(AProps[i]);
    end;//with

    cxPropertiesStore1.StorageStream := Stream;
    cxPropertiesStore1.StoreTo;

    //параметры сравнения: окно + компонента
    q.ParamByName('FORM').AsString    := cxPropertiesStore1.StorageName;
    q.ParamByName('CNAME').AsString   := AComponent.Name;
    q.ParamByName('CAPTION').AsString := GetFrmCaption(Form);

    if AComponent is TControl then
      SetControlDescr(TControl(AComponent), q);// описание и индекс икноки

    if AComponent is TContainedAction then
      SetActionDescr(TContainedAction(AComponent), q);// описание и индекс икноки

     Stream.Position := 0;
     q.ParamByName('STREAM').LoadFromStream(Stream);
     try
       if not q.Transaction.Active then q.Transaction.StartTransaction;
       q.ExecQuery;
       if q.Transaction.InTransaction then q.Transaction.Commit;
     except
       on e:exception do
       begin
         if q.Transaction.InTransaction then q.Transaction.Rollback;
         KvxMessageBox(constMsgFormErrStoresToDB + sLineBreak + e.Message, constError, MB_OK+MB_ICONERROR);
         SendException(constMsgFormDesignerErrStoresToDB + ', ' + AComponent.Name + sLineBreak + q.ReadySQLText, e, constModuleName);
       end;
     end;

  finally
    FreeAndNil(stream);
    FreeAndNil(cxPropertiesStore1);
    FreeAndNil(q);
  end;
end;


procedure TStorageKvx.RestorePropertiesFromDB(const Form: TForm; const AComponent: TComponent; const AProps: TStrArray);
Var
 cxPropertiesStore1: TcxPropertiesStore;
 q: TpFibQuery;
 stream: TMemoryStream;
begin
  if not DM.fibDB.TestConnected then exit;
  q := dm.CreateFibQuery;
  q.Transaction := dm.fibDB.DefaultTransaction;
  cxPropertiesStore1 := TcxPropertiesStore.Create(Application);
  stream := TMemoryStream.Create;
  try
    q.SQL.Text := constRestoreSQL;

    cxPropertiesStore1.StorageName := Form.ClassName;
    cxPropertiesStore1.StorageType := stStream;

    with TcxPropertiesStoreComponent(cxPropertiesStore1.Components.Add) do
    begin
      Component := AComponent;
      for var I := low(AProps) to High(AProps) do
        Properties.Add(AProps[i]);
    end;//with

    try
      if not q.Transaction.Active then q.Transaction.StartTransaction;
      q.ParamByName('FORM').AsString  := cxPropertiesStore1.StorageName;
      q.ParamByName('CNAME').AsString := AComponent.Name;
      q.ExecQuery;
      q.FieldByName('STREAM').SaveToStream(stream);

      if stream.Size > 0 then
      begin
        stream.Position := 0;
        cxPropertiesStore1.StorageStream := Stream;
        cxPropertiesStore1.RestoreFrom;
      end;

    except
      on e:exception do
      begin
        if q.Transaction.InTransaction then q.Transaction.Rollback;
        KvxMessageBox('Restore error: ' + sLineBreak + e.Message, constError, MB_OK+MB_ICONERROR);
        SendException('Restore error ' + ', ' + AComponent.Name + sLineBreak + q.ReadySQLText, e, constModuleName);
      end;
    end;

  finally
    FreeAndNil(stream);
    FreeAndNil(cxPropertiesStore1);
    FreeAndNil(q);
  end;
end;