Этот кусок кода можно не только читать, но и петь...
Param := TDAParam.Create( TParams(Params) );
Params.AddParam(Param);
TParam(Param).Value := AValue;