[delphi.com.ar]

var
  AFreeAvailable,
  ATotalSpace: Int64;
begin
    GetDiskFreeSpaceEx( PChar(APath), AFreeAvailable, ATotalSpace, Nil );
end;

Saludos!