begin
  // Иллюстрация простого условного оператора if, который выполняет истину
  if True Then ShowMessage('True!');

  // Иллюстрация того же самого, но с множественными действиями
  if 1 = 1 Then
  begin
    ShowMessage('Мы теперь имеем');
    ShowMessage('множественные строки');
  end;

  // Иллюстрация простого условного оператора if, который терпит неудачу
  if 1 = 2 Then ShowMessage('1 = 2');

  // Иллюстрация инструкции if then else
  // Обратите внимание на недостаток ';' после предложения 'then'
  if False
  Then ShowMessage('True')
  else ShowMessage('False');

  // Вложенные условные операторы - Delphi заметно управляют ассоциациями
  if true Then
    if false Then
      ShowMessage('Inner then satisfied')
    else
      ShowMessage('Inner else satisfied')
  else
    ShowMessage('Outer else satisfied')
end;