* Correctly convert string param to bytes

git-svn-id: trunk@39342 -

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

@@ -534,6 +534,8 @@ begin
     Result:=nil
   else if VarIsArray(FValue) then
     Result:=FValue
+  else if VarIsStr(FValue) then
+    Result:=BytesOf(VarToStr(FValue))
   else
     // todo: conversion from other variant types to TBytes
     Result:=FValue;