procedure TfrmObjects.btnAdditClick(Sender: TObject);
const
  Sec: TSecurity = [ 0 ];
var
  MemStrm: TMemoryStream;
  ImgJPG: TJpegImage;
begin
  if (not(gUser.ACC in Sec))or(not DM.dbAddit.Connected) then Exit;
  Refr:=_bF;
  AFill;
  if F_DlgPanel.ShowDock(Caption+' - [дополнительно]',Self,pnlObjectA,_nil)=mrOk then
    begin
      try
        DM.trMultiA.Active:=_bT;
        DM.qryMultiA.SQL.Clear;
        if (imgPS.Picture.Graphic.Empty)and(imgPB.Picture.Graphic.Empty)and(memACOMM.Lines.Text=_sNul)
          then DM.qryMultiA.SQL.Add('DELETE FROM ADDOB WHERE ID_OB='+qryObjectsID_OB.AsString)
          else
            begin
              if qryObjectsA.IsEmpty
                then DM.qryMultiA.SQL.Add('INSERT INTO ADDOB (ID_OB, PS, PB, COMM) VALUES ('+qryObjectsID_OB.AsString+', :PS, :PB, :COMM)')
                else DM.qryMultiA.SQL.Add('UPDATE ADDOB SET PS=:PS, PB=:PB, COMM=:COMM WHERE ID_OB='+qryObjectsID_OB.AsString);
              MemStrm:=TMemoryStream.Create;
              ImgJPG:=TJpegImage.Create;
              if imgPS.Picture.Graphic.Empty
                then DM.qryMultiA.ParamByName('PS').Clear
                else
                  begin
                    ImgJPG.Assign(imgPS.Picture.Graphic);
                    ImgJPG.SaveToStream(MemStrm); MemStrm.Position:=_iZero;
                    DM.qryMultiA.ParamByName('PS').LoadFromStream(MemStrm,ftBlob);
                  end;
              if imgPB.Picture.Graphic.Empty
                then DM.qryMultiA.ParamByName('PB').Clear
                else
                  begin
                    MemStrm.Clear;
                    ImgJPG.Assign(imgPB.Picture.Graphic);
                    ImgJPG.SaveToStream(MemStrm); MemStrm.Position:=_iZero;
                    DM.qryMultiA.ParamByName('PB').LoadFromStream(MemStrm,ftBlob);
                  end;
              if memACOMM.Lines.Text=_sNul
                then DM.qryMultiA.ParamByName('COMM').Clear
                else
                  begin
                    MemStrm.Clear;
                    memACOMM.Lines.SaveToStream(MemStrm); MemStrm.Position:=_iZero;
                    DM.qryMultiA.ParamByName('COMM').LoadFromStream(MemStrm,ftBlob);
                  end;
              ImgJPG.Free;
              MemStrm.Free;
            end;
        DM.qryMultiA.ExecSQL;
        DM.trMultiA.Commit;
        Refr:=_bT;
      except
        DM.trMultiA.Rollback;
        if ImgJPG<>_nil then ImgJPG.Free;
        if MemStrm<>_nil then MemStrm.Free;
      end;
    end;
end;