[Ross]

Есть такая функция ChangeFileExt.
На форму кинь кнопку, а в коде кнопки воткни вот это и сам всё поймёшь:

Код:

Form1.Caption := ChangeFileExt(Application.ExeName, '.exe');