* using value instead of avalue does not properly set bound because getvalueasvariant

    returns 0.0 if isnull. Mantis 17819, patch from Martin Schreiber.

git-svn-id: trunk@16392 -

packages/fcl-db/src/base/dsparams.inc

@@ -678,7 +678,7 @@ end;
 Procedure TParam.SetAsVariant(const AValue: Variant);
 begin
   FValue:=AValue;
-  FBound:=not VarIsClear(Value);
+  FBound:=not VarIsClear(AValue);
   if FDataType = ftUnknown then
     case VarType(Value) of
       varBoolean  : FDataType:=ftBoolean;