TOnDriveSpaceChanged = procedure (Sender: TObject; Path: UnicodeString; TotalSpace, FreeSpace: int64) of object;