var
  same : Boolean;
  small, large, i : Integer;

begin
  small := 23;
  large := 455555;

  // Непосредственое испытание, чтобы увидеть, являются ли эти числа того же самого размера
  if small = large
  then ShowMessage('small = large')
  else ShowMessage('small <> large');

  // Используйте Boolean, чтобы содержать и проверять этот результат
  same := (small = large);
  if same
  then ShowMessage('small = large')
  else ShowMessage('small <> large');

  // Прямое назначение логического значения в этот Boolean
  same := True;
  if same
  then ShowMessage('то же True')
  else ShowMessage('то же False');
end;