[:S.p.a.m.]

Я делал проще.
showmessage(ExtractFileName(Application.ExeName));