Simple ADO-opdatering bryder samme?

procedure TDM.SetParam(aDataSet: TCustomADODataSet;
                      const aName: string;
                      const aFieldType: TFieldType;
                      const aValue: Variant;
                      const aSetNull: boolean);
begin
  SetParam(TADODataSet(aDataSet).Parameters.ParamByName(aName),aFieldType,aValue,aSetNull);
end;

procedure TDM.SetParam(aParameter: TParameter;
                      const aValue: Variant;
                      const aSetNull: boolean);
begin
  if aSetNull then
    aParameter.Value := Null
  else
    aParameter.Value := aValue;
end;

procedure TDM.SetParam(aParameter: TParameter;
                      const aFieldType: TFieldType;
                      const aValue: Variant;
                      const aSetNull: boolean);
begin
  aParameter.DataType := aFieldType;
  SetParam(aParameter,aValue,aSetNull);
end;

DM.SetParam(Query,'vaerdi',ftInteger,EtHeltal,EtHeltal = 0);