Parambyname

quero que se for desconto - desconte, se for aumento - aumente!!
Ve se eu posso fazer isso:
dentro da query eu coloco:
update preco
from produtos
where preco= :ppreco

na unit do delphi,eu coloco:
With tb_produtos do
if radiobutton1.checked then
parambyname(´preco´):= ´-´ + strtofloat(edit1.text)
else
parambyname(´preco´):= ´+´ + strtofloat(edit1.text)

Uma coisa assim,sei que essa lógica ta paia,mas como eu faria??
quero a interface assim:
um edit e 2 radiobuttons,onde os radios são desconto e aumento