Пример кода : Установка и использование символа TESTMODE
var
text : string;
begin // Установите наш код в испытательный режим
{$Define TESTMODE}
text := 'Мы в испытательном режиме'; // Если мы находимся в испытательном
режиме, показываем значение text
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$EndIf} // Выключение испытательного режима
{$UnDef TESTMODE}
text := 'Мы не в испытательном режиме'; // Если мы находимся в испытательном
режиме,показываем значение text
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$EndIf}
end;