Setzte den Dateinamen selbst zusammen.
Z.B. hast du ein Edit mit dem Pfad
Delphi-Quellcode:
var
Path: string;
begin
Path := ExtractFilePath(Edit1.Text);
SaveDialog1.FileName := Path + 'Dateiname.txt';
end;
Edit: Achso -- Oder willst Du einen Dialog nur für die Ordnerangabe? Dann nimm besser:
SHBrowseForFolder.
Viele Grüße