procedure StoreLayoutControlStream(LayoutControl: TdxLayoutControl);
var
  PatternLayout: string;
  stream: TStream;
  q: TpFibQuery;
begin
...
...
...

  stream := TMemoryStream.Create;
  try
//firebird
      q.SQL.Text := 'UPDATE OR INSERT INTO TLAYOUT (ID_USER, FORM_CLASSNAME, LAYOUTCONTROL_NAME, STREAM) VALUES (:ID_USER,:FORM_CLASSNAME, :LAYOUTCONTROL_NAME, :STREAM) MATCHING (FORM_CLASSNAME, LAYOUTCONTROL_NAME)';


    q.ParamByName('FORM_CLASSNAME').AsString     := LayoutControl.Owner.ClassName;
    q.ParamByName('LAYOUTCONTROL_NAME').AsString := LayoutControl.Name;

    PatternLayout := LayoutControl.Owner.ClassName + '.' + LayoutControl.Name;
    LayoutControl.Container.StoreToStream(stream, PatternLayout);
    stream.Seek(0, 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
         ...
    end;

  finally
    q.Close;
    stream.Free;
    q.Free;
  end;
end;