2．編寫程序如下：
unit Unit1;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } a : String; end;
var Form1: TForm1; implementation {$R *.DFM} {$DEFINE AAA} // 定義行。
procedure TForm1.FormCreate(Sender: TObject);
begina := 'Other';{$IFDEF AAA} a := 'AAA';
{$ENDIF}{$IFDEF BBB}
a := 'BBB';
{$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin Caption := a;
end;
end.
{注：粗體字部分為輸入的代碼}
3．編譯後運行，按下Button，則看到窗體標題欄顯示“AAA”。程序編譯了a := ’AAA’的語句。
4．改變定義行的程序段：當改為 {$DEFINE BBB}時，再次編譯運行，則看到窗體標題欄顯示“BBB”。程序編譯了a := ’BBB’的語句。當取消定義行或改為 {$DEFINE NOTHING}或其他名稱時，再次編譯運行，則看到窗體標題欄顯示“Other”。
程序只編譯了a := ’Other’的語句。 三．如何快速的制作和更改版本：使用預編譯指令，在制作同一個程序的多個版本時，只需找出各版本中有區別的單元，依次定義統一的版本符號（Symbol），然後在程序段中加入條件預編譯指令，就可以在實際編譯中取捨編譯不同的程序部分，這樣對於程序的規范性（定義統一的版本符號）和保密性（不同的版本編譯不同的程序部分）有很好的作用。
然而，由於該類預編譯指令只能作用於當前單元，所以不便之處在於不能在一個公共單元定義一次版本符號，而必須在各單元中定義統一版本符號才行，故此，在更換版本時，需要確定所有的版本符號都已改變，這樣才能保證各版本的正確性，對此，可以使用Delphi IDE的“Find in Files…”（多個文件中查找字符串）的功能，找出所有定義版本符號的文件和位置，然後依次更改，保證所有位置已經改正。
