Danke für die schnellen Antworten. Ich habe mir in der Delphi Hilfe mal "ExcludeTrailingPathDelimiter" angeschaut und so gelöst
Delphi-Quellcode:
var
s, Dir: String;
s := ExtractFilePath(Application.ExeName);
Dir := ExcludeTrailingPathDelimiter(s);
Alle anderen Vorschläge hab ich noch nicht getestet also nicht gleich erschlagen
