Slash am Ende des Verzeichnispfad entfernen

[NewbieNew]

Hallo,

Ich möchte gerne den letzten Slash am Verzeichnispfad entfernen. Mit ExtractFilePath(Application.ExeName) hole ich mir den Pfad wo die Anwendung sich gerade befindet. Der Pfad wird aber mit einem Abschließenden Slash "\" übergeben z.B. "C:\Programme\Anwendung\"

Wie könnte man die Übergabe ohne Abschließenden Slash realisieren "C:\Programme\Anwendung"

Delphi-Quellcode:

var
Dir: String;

Dir := ExtractFilePath(Application.ExeName);

MFG
Newbie