指定 Delphi 的編譯條件

在 Project -> Options -> Directories / Conditionals 中
有 Conditional defines 可以設定 編譯條件，有多個條件時以分號分隔
在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF DEBUG}
  ShowMessage('DEBUG Conditional');
{$ELSE}
  ShowMessage('Normal');
{$ENDIF}
end;

執行程式後會顯示 'Normal'
在 Conditional defines 入框中輸入 DEBUG 按 ok 後重 build
Project -> Build Project1
再次執行程式後會顯示 'DEBUG Conditional'