Określenie ścieżki dostępu, z której uruchomiono program

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić ścieżkę dostępu, z której uruchomiono program odczytujemy właściwość ExeName obiektu TApplication (nie można jej zmienić):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = Application->ExeName;
}