Изменения

# Вычитаем из ближайшего значения к числу, полученному на Шаге 4, оканчивающемуся на ноль значение, полученное на Шаге 4 — получаем значение последней пятнадцатой цифры IMEI-кода.

(небольшой комментарий от n0wheremany - алгоритм отписанный выше не совсем правильный)

Result := IMEI + IntToStr(X);

end;