var
  num1, num2, num3 : Integer;
  letter           : Char;

begin
  num1   := $25;    // Бинарное значение : 0010 0101   $25
  num2   := $32;    // Бинарное значение : 0011 0010   $32
                    // Значение после применения Or  : 0011 0111 = $37
  letter := 'G';

  // Использование для возвращения Булева значения
  if (num1 > 0) Or (letter = 'G')
  then ShowMessage('Не менее одного истинного значения')
  else ShowMessage('Оба значения ложны');

  // Использование для выполнения математической операции OR
  num3 := num1 Or num2;

  // Отображения результата
  ShowMessageFmt('$25 or $32 = $%x',[num3]);
end;