Hola Javier.
Para la capacidad y espacio libre del disco, Delphi tiene las funciones
DiskSize y
DiskFree:
Código Delphi
[-]
...
const
C = 3;
begin
ShowMessage(Format('Tamaño: %d Kb. %sLibre: %d Kb.',
[DiskSize(C)div 1024,#13#10,DiskFree(C) div 1024]));
end;
Saludos.