Этот кусок кода можно не только читать, но и петь...

Param := TDAParam.Create( TParams(Params) );
Params.AddParam(Param);
TParam(Param).Value := AValue;