Foldernamen von Dateinamen unterscheiden

[bernhard_LA]

ich muss in meiner Anwendung Pfade zum Lesen und Schreiben von Dateien verarbeiten.
Übergebe ich an meine Funktion eine Stringliste welche nur einen Pfad beschreibt ist die Funktion korrekt,
wenn aber das letzte Element einen Dateinamen beschreibt bekomme ich ein unnötiges \ Zeichen im Ergebnis.

Was ist der beste Ansatz um dieses Problem zulösen ? ich kann unter Umständen nicht auf das Verzeichnis zugreifen zur Laufzeit meines Programms

Delphi-Quellcode:

function CombinePathStringlist(aPathList: TStringList;
  AddServerPrefix: Boolean): String;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to (aPathList.Count - 1) do
  begin
    Result := IncludeTrailingPathDelimiter(Result + aPathList[i]);
  end;

  if AddServerPrefix then
    Result := IncludeTrailingPathDelimiter(ServerPathPrefix + Result);

end;