freien Festplattenspeicher ständig aktualisieren???

[mlspider]

Hallo,

ich lasse mir den freien Festplattenspeicher wie folgt ermitteln:

Delphi-Quellcode:

procedure TSpeicher.DriveComboBox1Click(Sender: TObject);
var
  s: string[255];
  frei,
  gesamt: Double;
begin
 s:= UpperCase(DriveComboBox1.Drive);
 frei := diskfree(ord(s[1])-64);
 gesamt:= disksize(ord(s[1])-64);
 label1.caption := format('Frei      : %12.0n',[frei]);
 label2.caption := format('Gesamt: %12.0n',[gesamt]);
 Gauge1.Value :=round((gesamt-frei)/gesamt*100);
end;

Wie kann man nun den freien Speicherplatz z.b. bei einer Musikaufnahme ständig aktualisieren lassen???

Danke!!!