Yes, you can
Something like this should do the trick
[code=pascal]
{$define MyDebug}

{$ifdef MyDebug}
writeln('Debugging...');
{$endif}
[/code]

Look also at http://community.freepascal.org:1000...l#x106-1060002