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