Código Delphi [-] Edit1.Text := DirectoryListBox1.Directory;
Edit1.Text := DirectoryListBox1.Directory;