¿Función para determinar la capacidad del disco duro?

[Roilo]

...para determinar la RAM:

Código Delphi [-]
RAM:=trunc(dwTotalPhys/1048576);
label7.caption := floatToStr(RAM)+' MB De Memoria RAM.';

Para determinar procesador (no estoy satisfecho, pero algo hace)

Código Delphi [-]
with TRegistry.Create do   
 try
     RootKey:= HKEY_LOCAL_MACHINE; // <-- La clave root
     if OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',FALSE) then
     begin
       if    ReadString('ProcessorNameString')<>'' then
        begin
         label8.Caption :=ReadString('ProcessorNameString');
        closekey;
       end
        else
       label8.Caption := 'CPU sin determinar...';
    end;
  finally
     Free;
   end;

Gracias por colaborar...