Code:
with TFileOpenDialog.Create(self) do
try
Options := [fdoPickFolders,fdoPathMustExist];
if Execute = true
then DirectoryEdit.Text := Filename;
finally
Free;
end;
Mach mal bei "Execute" und "Filename" ein [F7] und schau nach, was da wirklich exekutiert wird. Ohne "with" wäre es übersichtlicher, deswegen ist "with" in 99% der Fälle ein NoGo.
So, wie DeddyH es schreibt...