这应该是一个关于条件编译的问题。(300分)

procedure test(df:string);
begin
{$IFDEF DEBUG }
showmessage(df);
{$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test(edit1.text);
end;
这个例子中，我希望当没有定义DEBUG时，根本就不编译调用test的有关代码，因为调用的地方很多，不想每处都加{$ifdef}　，不过这个函数仍然会被调用，只不过在函数体内转一空圈就出来了。有没有根本就不会再调用的方法？
我想求改动代码最少的方法。

这个可能不行，Delphi没法象C一样定义宏，C++的TRACE是通过宏根据编译开关进行切换的

谢了