Задача на расстояние между двоичными кодами, Помогите с решением плииз Опции

[Lodar']

Расстоянием между двоичными кодами называется количество несовпадающих двоичных разрядов. Например:
0101101
0010101 р=3
-----------
***
Составить функцию Ro (N1,N2), вычисляющую расстояние между двоичными представлениями её целочисленных аргументов N1 N2

Добавлено через 1 мин.
желательно написать самый рациональный алгоритм (язык Delphi консольное приложение)

[Lodar']

ну я так понял что на вход подаются 2 числа типа Integer. Как перейти к битам? и, если можно, то рассшифровать вот эти строки функции

inc(res, (n1 and $1) xor (n2 and $1));
    n1 := n1 shr 1; n2 := n2 shr 1;