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;