Problemas con ClientDataSet evento OnChange

[jmlifi]

Trabajo con delphi 2006 .

Tengo un DBGrid donde cambio el valor de la celda(formato), y al saltar a otra celda se ejecuta el siguiente procedimiento, generando así un BUCLE INFINITO:

Código Delphi [-]
procedure TTrabajosFrm.ProgTrabajoFORMATOChange(Sender: TField);
begin
ProgTrabajoPESOCH.AsFloat :=PesoChapa(TrabajosMATERIAL.AsString, Sender.AsString)
end;

En delphi 7 no he tenido ningún problema.

¿a qué se debe?