1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function GetDiskSize(drive: Char; var free_size, total_size: Int64): Boolean; 
var 
  RootPath: array[0..4] of Char; 
  RootPtr: PChar; 
  current_dir: string; 
begin 
  RootPath[0] := Drive;
  RootPath[1] := ':'; 
  RootPath[2] := '\'; 
  RootPath[3] := #0; 
  RootPtr := RootPath; 
  current_dir := GetCurrentDir; 
  if SetCurrentDir(drive + ':\') then 
  begin 
    GetDiskFreeSpaceEx(RootPtr, Free_size, Total_size, nil); 
    // this to turn back to original dir 
    SetCurrentDir(current_dir); 
    Result := True; 
  end 
  else 
  begin 
    Result := False; 
    Free_size  := -1; 
    Total_size := -1; 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

GetDiskSize('G', free_size, total_size);
 differenz :=total_size - free_size;

 dif :=FloatToStr(differenz / 1048576);

 IF Length(dif) > 12 Then Dif := dif + ' TB';
 IF Length(dif) = 8 Then Dif := dif + ' GB';
 IF Length(dif) = 5 Then Dif := Dif + ' MB';
 IF Length(dif) < 5 Then Dif := Dif + ' KB';

 frei :=FloatToStr(free_size div 1024);
 IF Length(frei) >= 12 Then Begin
  frei :=FloatToStr(free_size / sqr(1024));
  frei := frei + ' TB';
 End Else Begin
 IF (Length(frei) <= 12) and (Length(frei) > 7) Then Begin
  frei :=FloatToStr(free_size / sqr(1024));
  frei := frei + ' GB';
 End Else Begin
 IF (Length(frei) <= 8) and (Length(frei) >5) Then Begin
  frei :=FloatToStr(free_size / sqr(1024));
  frei := frei + ' MB';
 End Else Begin
 IF (Length(frei) <= 5)  Then Begin
  frei :=FloatToStr(free_size div 1024);
  frei := frei + ' KB';
  End Else Begin
 IF Length(frei) <= 5 Then groesselwg :='Speicher kleiner 1 MB';
   fehler :=groesselwg;
   End;    //IF
  End;  // IF
 End; // IF
 ShowMessage(frei);
End; // Freier Speicher                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function FormatDiskSpace(DiskSpace: Int64): string; 
begin 
  case DiskSpace of 
    0..1023: result := Format('%d byte', [DiskSpace]); 
    1024..1048576: result := Format('%2n KB', [DiskSpace / 1024]); 
    1048577..1073741824: result := Format('%2n MB', [DiskSpace / 1024 / 1024]); 
  else 
    result := Format('%2n GB', [DiskSpace / 1024 / 1024 / 1024]); 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

const
  iKByte=1024;
  iMByte=1024*iKByte;
  iGByte=1024*iMByte;

type
  TByteFormat(bf_Byte, bf_KByte, bf_MByte, bf_GByte); 

function FormatByte(const aSize:Extended; aFmt:TByteFormat):String;
begin
  case aFmt of
    bf_Byte :Result:=FormatFloat(aSize, '#,#0 Byte');
    bf_KByte:Result:=FormatFloat(aSize/iKByte, '#,#0.00 KB');
    bf_MByte:Result:=FormatFloat(aSize/iMByte, '#,#0.00 MB');
    bf_GByte:Result:=FormatFloat(aSize/iGByte, '#,#0.00 GB');
    else Result:=FormatFloat(aSize, '#,#0 Byte');
  end; // case
end; // FormatByte

...
...
Label1.Caption:='Frei: '+FormatByte(free_size, bf_MGyte); // in Giga
Label2.Caption:='Belegt: '+FormatByte(total_size-free_size, bf_MByte); // in Mega
...