[icWasya]

для начала не

Код:

Round(loc4 / 8)

а

Код:

loc4 div 8

или даже

Код:

loc4 shr 3

и расставить скобки в сложных выражениях, и побольше , поскольку приоритеты операций в Delphi могут отличаться от ActionScript. Например в 21 строке - точно нужны.