delphi 使用条件编译指令

procedure TForm1.btn1Click(Sender: TObject);
begin
{$Define ss}    (*  用于定义一个条件符号，一旦定义，条件符号就为真 *)
{$IFDEF ss}     (* 对条件符号进行判断，为真则编译源文件 *)
  ShowMessage('ss Has defined!!');
  Text := 'ss Has defined!!';
  Form1.Color := clLime;
{$ELSE}          (* 与$IFDEF配合使用，如果$IFDEF条件为假，则只对源文件$ELSE后一小部分进行编译 *)
  ShowMessage('ss Has not defined!!');
  Text := 'ss Has NOT defined!!'
  Form1.Color := clRed;
{$ENDIF}         (* 结束一个以$IF开始的条件段 *)
{$UNDEF ss}      (* 撤消以前的条件符号定义 *)
{$IFDEF ss}   (*  因为已经撤销ss的定义 *)
  ShowMessage('ss Has defined!!');
  Text := 'ss Has defined!!';
  Form1.Color := clLime;
{$ELSE}
  ShowMessage('ss Has not defined!!');  (* 因此，将执行以下语句 *)
  Text := 'ss Has NOT defined!!';
  Form1.Color := clRed;
{$ENDIF}
end;