El error puede ser ocasionado por artículos que tienen precio cero. Y seguramente se produce aquí.
Código Delphi
[-] z:= 0;
a:= StrToInt(DbEdit2.Text); b:= StrToInt(DbEdit3.Text); c:= 1+((a+b)/100); d:= StrToInt(StringGrid1.Cells[5, StringGrid1.Row])* StrToInt(StringGrid1.Cells[4, StringGrid1.Row]); f:= d/c;
z:= d-f;
Quiero decir que aparentemente el problema es según qué artículo se escoge, y no por la máquina donde se hace la prueba.