procedure SetDecimalParam

procedure setDecimalParam(key: string; value: extended);