Ошибка в том, что вы используете числа 1 и 0 для представления логических значений true и false внутри функции _Xor. Вместо этого в Паскале используются ключевые слова true и false. Исправьте вашу функцию _Xor следующим образом:

function _Xor(x, y: boolean): boolean;
begin
if (x or y) then
_Xor := true
else
_Xor := false;
end;

Также убедитесь, что вы передаете значения true или false в функцию _Xor, а не 1 или 0.