* Bug #19418

git-svn-id: trunk@17678 -

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

@@ -103,12 +103,9 @@ Function TParams.CreateParam(FldType: TFieldType; const ParamName: string;
 
 begin
   Result:=Add as TParam;
-  With Result do
-    begin
-    Name:=ParamName;
-    DataType:=FldType;
-    ParamType:=ParamType;
-    end;
+  Result.Name:=ParamName;
+  Result.DataType:=FldType;
+  Result.ParamType:=ParamType;
 end;
 
 Function TParams.FindParam(const Value: string): TParam;