数据库更新有关问题　　高手帮忙！

数据库更新问题　　高手帮忙！！在线等！！
adocommand1.CommandText:= 'update   读者罚金   set   实收金额=cast( ' ' '+edit4.Text+ ' ' '   as   money),是否交款=1   where   罚款编号= ' ' '+dbgrid1.Fields[0].Text+ ' ' ' ';
　　　

　　出错的地方是　set   实收金额=cast( ' ' '+edit4.Text+ ' ' '   as   money),　　请问一下，把edit4.Text的值（是小数形式的）转换成货币的格式要怎么写代码？？？

[解决办法]
使用RoundTo(1.234, -2)函数,反正人民币总是2位小数
或者直接数据控制组件直接输入
[解决办法]
用 实收金额= 'strtocurr(edit4.text) ' 试试
[解决办法]
使用RoundTo( StrToFloat(edit4.Text), -2)