File Explorer Sederhana Dengan Delphi

kalo bikin kaya windows eksplorer beneran,jelas ane ga mampu gan,yang akan di share sekarang adalah hanya yang sederhana-sederhananya sajah ,tanpa ada operasi file apapun,just menampilkan sajah.
penampakannya seperti ini gan :

sekarang tinggal bahan2 yang diperlukan,untuk kasarnya kita bisa lihat gambar dibawah mengenai bahan2nya,mereka adalah :

untuk mendapatkan bahan di atas,kita cari komponennya yang berada pada pallete win 3.1

okeh DONE,
sekarang kita ke kodingnya,ga ribet ko,namanya juga sederhana
langsung aja dah semuanya,event2 nya hanya DriveComboBoxOnChange,DirectoryListboxOnChange,dan FileListBoxOnClick

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
 filelistbox1.Directory:=directorylistbox1.Directory;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
 directorylistbox1.Drive:=drivecombobox1.Drive;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
var
 i : integer;
begin
 label3.Caption:=filelistbox1.FileName;
 with filelistbox1 do
  for i:=0 to items.Count-1 do
   if selected[i] then
    edit1.Text:=filelistbox1.Items.Strings[i];
end;

oke finish dan semoga bermanfaat,
setting labelnya mah terserah we nya.