SelectDirectory setzt kein Backslash nach einem SubDirectory

[Predator]

moin Jungs,

also ich hab folgenden Code benutzt um ein Directory zu wählen:

Delphi-Quellcode:

var
   Dir: string:
begin
    if SelectDirectory('Ordner:','', Dir) then 
       Edit2.Text := Dir + Dateiname;
    end;
end;

wenn ich nun als source habe:

C:\SwapItOE2.msi

kommt hier bei Select Directory das raus:

C:\ProgrammeSwapItOE2.msi

also nach Programme kein \

Kann jemand einen code posten(code ist besser, so versteht mans schneller als immer drumrum reden)

Vielen Dank im Voraus.