Die Dialog wird angezeigt, nur wenn ich ein Verzeichnis auswähle und dann auf 'Ordner auswählen' klicke bekomme ich eben false zurück und Dialog.Filename ist leer.
Auch mit dieser Variante ohne 'with':
Code:
Dialog := TFileOpenDialog.Create(self);
try
Dialog.DefaultFolder := 'c:\temp';
Dialog.Options := [fdoPickFolders,fdoPathMustExist];
if Dialog.Execute = true
then DirectoryEdit.Text := Dialog.Filename;
finally
FreeAndNil(Dialog);
end;