procedure SetStringParamNoQout

procedure setStringParamNoQout(key: string; value: string);