[icWasya]

как то так

Код:

procedure GetIndexes(ID:double; r:double; var X,Y,Z:Double);
var
  IR:Integer;
  Cell:TGrid3D;
begin
  IR:=Trunc(r);
  Cell := Grid3D[Trunc(ID)];
  X := IR mod Cell.SizeX; 
  IR:= IR div Cell.SizeX;
  Y := IR mod Cell.SizeY;
  Z := IR div Cell.SizeY;
end;