Delphi - Necesito un truco

Hola a todos, necesito un truco en Delphi7 para que cuando haga clic en un TButton que me diga en un TLabel la dirección donde está guardado el programa. Yo no tengo acceso a la página de los trucos de delphi, lo digo por anticipado. Un saludo, Reynier.

Eso que buscas no es un truco sino el resultado de una funcion:
Label1.Caption:=Extractfilepath(Aplication.exename);
Label1.Caption:=Extractfilepath(ParamStr(0));
Busca en la ayuda
Suerte

OK, muchas gracias. Luego lo voy a probar. Saludos, Reynier.