delphi DriveComboBox、DirectoryListBox、FileListBox三个控件联动

delphi DriveComboBox、DirectoryListBox、FileListBox三个控件联动：
1、DriveComboBox控件的属性DirList上绑定DirectoryListBox控件
2、DirecoryListBox控件的属性FileList上绑定FileListBox控件
3、DirectoryListBox控件的OnClick事件上写入如下代码：
FileListBox1.Directory:=DirectoryListBox1.GetItemPath(DirectoryListBox1.ItemIndex);