Disk forbrug?

ok...men jeg får denne fejl:
Undeclared identifier: 'float'

kode:

Kode 

procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
  procent: float;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;

LblDisk4.Caption := inttostr(100 - strtoint(LblDisk3.Caption)) + 'Procent er ledige';

end;

hva skal jeg?
_______________________________
http://thefreeworld.h4f.dk

Du skal ikke skrive float men real så burde det virke.

Johnny
_______________________________
SMIL det er det næst bedste du kan med læberne.

Kode 

procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig,brugt : double;
  i : integer;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
brugt := total - ledig;
LblDiskLedig.Caption := Format('Ledig: %12.0n', [ledig]) + ' MB';
LblDiskTotal.Caption := Format('Total: %12.0n', [total]) + ' MB';
LblDiskBrugt.Caption := Format('Brugt: %12.0n', [brugt]) + ' MB';
BrugtGauge.Progress := Round((total - ledig) / total * 100);
LedigGauge.Progress := Round((ledig) / total * 100);
TotalGauge.Progress := Round((total + ledig) / total * 100);