[icWasya]

>масло масляное
Я экономил не булевские операции, а преобразования double-int
А вот здесь можно

Код:

r:=Cell.SizeX*Cell.SizeY*IZ+Cell.SizeX*IY+IX;

сэкономить одно умножение

Код:

r:=Cell.SizeX*(Cell.SizeY*IZ+IY)+IX;