Connaitre le répertoire de l'application

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=ExtractFilePath(Application.exename);
end;