Speicherkontrolle von Laufwerken

[Computerbabalulu]

Hallo zusammen

Ich habe folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
var
  freeSpace, totalSpace: Double;
  s: Char;
begin
  s := 'P';

  freeSpace  := DiskFree(Ord(s) - 64);
  totalSpace := DiskSize(Ord(s) - 64);

  Label8.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
    ' % belegt.';

    if label8.caption < '79' then label8.Font.color:= clLime
          else label8.Font.color:= clred;

    if label8.caption > '90' then
        ShowMessage ('Achtung! Maximale Speicherkapazität von Laufwerk P fast erreicht.');

begin
  s := 'X';

  freeSpace  := DiskFree(Ord(s) - 64);
  totalSpace := DiskSize(Ord(s) - 64);

  Label9.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
    ' % belegt.';

    if label9.caption < '79' then label9.Font.color:= clLime
          else label9.Font.color:= clLime;

begin
  s := 'W';

  freeSpace  := DiskFree(Ord(s) - 64);
  totalSpace := DiskSize(Ord(s) - 64);

  Label10.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
    ' % belegt.';

    if label10.caption < '79' then label10.Font.color:= clLime
          else label10.Font.color:= clred;

    if label10.caption > '90' then
        ShowMessage ('Achtung! Maximale Speicherkapazität von Laufwerk W fast erreicht.');

    end;
  end;
end;

Hiermit wird der Speicherstatus der Laufwerke P , X , W in einem Form angezeigt.
Allerdings reicht mir das nicht. Hier sind dann im Programm die Laufwerksbuchstaben immer Fest vorgegeben. Ich möchte aber über eine Art Setup Menü einstellen können, welche Laufwerksbuchstaben angezeigt werden sollen.
Ich habe schon eine Menü erstellt, und die Daten als String in der Registry gespeichert. Leider Funzt das so aber nicht.
Hat jemand von euch eine Idee

[edit=FuckRacism]Delphi-Syntax eingefügt. Mfg, FuckRacism[/edit]