procedure TMDIExpertise.SetPublStateTo(const AStateInt, AStateLK: Integer; const ASetDate: Boolean); //-10 - не заполняем
var SI,SL,SD: String;
begin
    with DM.FDCommand do
    try
      if not Transaction.Active then Transaction.StartTransaction;
      SI := ''; if AStateInt > -10 then SI := 'STATEINT=:STATEINT, ';
      SL := ''; if AStateLK > -10 then SI := 'STATELK=:STATELK, ';
      SD := ''; if ASetDate then SD := 'DOCDATE=current_date, ';

      if SI+SL+SD='' then Exit;
      CommandText.Text := 'update TPDPUBLNOTES set '+SI+SL+SD+'IDAUTH=:IDAUTH, LASTEDITDATE=current_timestamp, IDOPERATION=null where ID=:ID'; //тут все верно, CommandText.Text содержит STATEINT=:STATEINT

      ParamByName('ID').AsInteger := FDQPubl.FieldByName('ID').AsInteger;
      ParamByName('IDAUTH').AsInteger := GlobalUserID;
      if AStateInt > -10 then ParamByName('STATEINT').AsInteger := AStateInt; //тут вываливается с ошибкой параметр STATEINT не найден
      if AStateLK > -10 then ParamByName('STATELK').AsInteger := AStateLK;
      Execute();

      if Transaction.Active then Transaction.Commit;
    except
      on e:Exception do
      begin
        if Transaction.Active then Transaction.Rollback;
        MyMessageDlg('Произошла критическая ошибка'#13#10+
          'TMDIExpertise.acPublDeleteExecute'#13#10+E.Message, mtWarning, [mbok], 0);
      end;
    end;
  FDQPubl.RefreshRecord();
end;