[Kipow]

Lo que veo yo es que el valor CurrencyEdit1.Text, es el valor numerico con formato, proba con esto

Código Delphi [-]
ibsql1.parambyname('precio').AsFloat := CurrencyEdit1.Value;