procedure TForm1.DriveComboBox1Change(Sender: TObject);

begin

DirectoryListBox1.Drive:= DriveComboBox1.Drive;

end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);

begin

FileListbox1.Directory:=DirectoryListBox1.Directory;

end;

procedure TForm1.DirectoryListBox1Click(Sender: TObject);

begin

FileListbox1.Directory:=DirectoryListBox1.Directory;

end;