Listbox-Items werden nicht richtig angezeigt und gespeichert

[creature]

hallo forenuser,

im zuge meiner ausbildung muss ich ja ein projekt schreiben und da hab ich eben die funktion zum auslesen von laufwerken mit integriert. d.h. es wird abgezeigt ob festplatte, cdrom oder diskette und und ... ausgegeben wird das in einer ListBox. mit der ausgabe der laufwerke ist mein erstes problem, was aber mit dem zusatz behoben wurde:

Delphi-Quellcode:

variable := Listbox.Items.Count;
variable := variable div 2;
for i_d := variable to DriveListBox.Items.Count do
  DriveListBox.Items.Delete(i_d);
//i_d ist die zählvariable

damit hab ich die ausgabe mehr oder minder reguliert bekommen. nun wollte ich aber zur weiteren verarbeitung den inhalt der listbox in eine textdatei speichern und habe diesen versuch hier unternommen:

Delphi-Quellcode:

for i:=0 to DriveListBox.Items.Count -1 do
  begin
    string_drivelist := string_drivelist + DriveListBox.Items.Text;
  end;

die laufwerke werden 3mal in den string geschrieben. kann mir da jemand von euch helfen?

herzlichen dank für eure hilfe, creature