[Delphi] Listing System's drives in a ListBox??

[Rami]

Hello every body, new to this forum as you can see
- How can i list my computer's drives into a Listbox?
I can do this:
- Adding a Drive control and a List control and then type this code:

ListBox1.Items.Text := Drive1.Items.Text;

- But this way i'll have the result in the ListBox this way:
a:
c: []
d: [hassan]
e: [karim]
f: [media files]
g: []
h: []

- And i want it that way:

A:\
C:\
D:\
E:\
F:\
G:\
H:\

- Can any body help me