Модуль: SysUtils

Описание
Функция возвращает количество свободного места на диске, указанном в параметре Drive, в байтах. Диск определяется следующим образом: 0 - текущий, 1 - 'A', 2 - 'B', 3 - 'С' и т.д. Если указанный диск не существует, или недоступен, то функция возвращает -1.

Пример
var
   X: Integer;
begin
...
   X:= DiskFree(0);
   MessageDlg('Свободно на текущем диске: '+ IntToStr(Х)+' байт', mtInformation, [mbOk], 0)
...
end;