Form1.Caption:= Application.ExeName;

либо

var sPath: String; 
begin 
GetDir(0,sPath); {в переменную sPath записывается путь 

к каталогу, где находится exe-файл} 
end;