[Camilo]

Amigos foristas me sucede algo raro que no me había pasado antes y no encuentro nada parecido en red (Juro que he buscado).
Resulta que el dichoso error "floating point division by zero" me sale en algunas maquinas pero en otras no.

Resulta que tengo una form donde tengo varios procedimientos muy similares a este: de hecho este es uno de ellos:

Código Delphi [-]
Procedure TFVenta.SumaCantidad;
var
k, Suma: integer;
a, c, d: Extended;
begin
  d:= 0;
  a := StrToInt(StringGrid1.Cells[5, StringGrid1.Row]); // Precio
  c := StrToInt(Edit8.Text); //Cantidad
  d:=  (a*c); // Precio x Cantidad

StringGrid1.Cells[4, StringGrid1.Row]:=  Edit8.Text;  //CANTIDAD
StringGrid1.Cells[6, StringGrid1.Row]:=  FormatFloat('$ #0,.00',d);
StringGrid1.Cells[8, StringGrid1.Row]:= FloatToStr(d);

Suma := 0;
  StringGrid1.Cells[7, StringGrid1.Row]:= StringGrid1.Cells[1, StringGrid1.Row];
  for k := 0 to StringGrid1.RowCount - 1 do
    if k <= StringGrid1.RowCount - 1 then
      Suma := Suma + StrToIntdef(StringGrid1.Cells[8, k + 1], 0);
      Edit7.Text:=  FormatFloat('$ #0,.00', Suma);
      Edit5.Text:=  IntToStr(Suma);
end;

digamos unos 4 procedimiento muy similares que llamo desde algun boton para que se ejecute. Los nombres de las variables y la estructura misma del procedimiento en estos dias me pongo en el plan de cambiarlas para mejor comprension del codigo con alguna metodologia como "notación camello" o algo asi.
Bien pero el tema que quiero compartir con ustedes en la busqueda desesperada por cierto, de una solución es lo siguiente.

Cojo la base de datos y el ejecutable y lo llevo a una maquina (sucede como con unas 5 hasta ahora) y cuando lo ejecuto sale el error (la ejecucion es por ejemplo el llamado a la funcion). En casa y en la mayoria de las maquinas funciona perfectamente. me he dado a la tarea de evaluar cosas como sistema operativo y configuracion regional y nada. Lo que me tiene mas "Cabezon" es que en unas maquinas si funciona perfecto y en optras no aun siendo la misma base de datos y el mismo ejecutable.

Trabajo con dlphi XE y Firebird.

Gracias de antemano.