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

begin
  num1   := $25;    // Бинарное значение : 0010 0101
  num2   := $32;    // Бинарное значение : 0011 0010
                    // Значение после операции And : 0010 0000 = $20 = 32 dec
  letter := 'G';

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

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

  ShowMessageFmt('$25 And $32 = $%x',[num3]);
end;