CurrencyEdit que não atualiza

Pessoal, bom dia :
Estou quase sem meus poucos cabelos com algo que chega a ser ridiculo mas esta me dando uma surra

Tenho no evento onExit do Edit1 o seguinte código :

var
a,b : real;
c : currency;
begin
a := StrToFloat(Edit1.text);
c := a * b;
CurrencyEdit1.value := c;
if c > 0 then
begin
procedureExecute;
procedurelimpaCampos;
end;
end;

Ocorre que a procedure é executada e o CurrencyEdit não muda.

Se coloco faço assim :
CurrencyEdit1.value := c;
ShowMessage(´0´);
if c > 0 then begin ...

Dou uma pausa, o currencyedit atualiza;

Achei que poderia ser o evento e coloquei a excução das procedures no evento onChange do Currency Edit
if CurrencyEdit1.value > 0 then begin ...

As procedures são executradas e o CurrencyEdit não é atualizado.

Achei que op problema fosse o componente e coloquei um RzNumericEdit e deu no mesmo.

Uma ajudinha pelo amor de deus