procedure TForm1.Button1Click(Sender: TObject); //hard disk free space
var
DiskFreeSpace : Int64;
begin
DiskFreeSpace := DiskFree(3);
ShowMessage(IntToStr(DiskFreeSpace));
end;