Вот, только надо узнать полный путь к программе, и узнать с какого символа начинаеться название проги и кончается, если ты это расчитаешь, то вот код:
Код:
var
s:string;
begin
s:=application.ExeName;
Delete(s,с номера какого символа начинается имя проги,на каком номере символа заканчивается имя проги);
label1.Caption:=s;