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