I have found a bug in procedure TDAParam.AssignParam(Param: TParam);
You have not assigned Bound value from Param.
I have fust add
Code: Select all
Bound := Param.Bound;
Code: Select all
Name := Param.Name;
At the next time,

Code: Select all
Bound := Param.Bound;
Code: Select all
Name := Param.Name;