Create yourself a code template (menu "tools")
for example a template for "d", that contains
debugln(['$ProcedureName() ', {$I LINE},|]);
(check "enable macros")
when you enter d followed by ctrl-j in the editor you get the debugln.
ProcedureName() is replaced immediately, if you edit the procedures name later, it is not updated.