Fórum Armazenar número de edit num campo Float #500423

Boa noite caros colegas,


Coloquei no OnExit de um Edit, o seguinte código:

Try
EdtLimite.Text := FormatCurr('#,0.00',(StrToFloat(EdtLimite.Text)));
Except
ShowMessage(FMenu_.Operador.Caption+', algum caractere inválido foi digitado. Favor verificar.');
EdtLimite.SetFocus;
end;

O Objetivo é que ao digitar um número qualquer, automaticamente ele seja convertido para um formato monetário e, se for digitado alguma caractere do tipo texto, uma mensagem será fornecida ao usuário.

Porém na hora de armazenar o conteúdo do Edit na tabela, aparece a seguinte mensagem de erro:

'1.175,00' is not a valid floating point value

O comando que estou usando para armazenar o valor é o seguinte:
dm_.ZQryClientes.Append;
{ ... }
dm_.ZQryClienteslimite.Value := StrToCurr(EdtLimite.Text);
{ ... }
dm_.ZQryClientes.Post;

Será que alguém pode me passar um dica de como fazer para se evitar este erro e conseguir armazenar com êxito o conteúdo do Edit que está no formulário?


Desde já agradeço a todos.