Getting Disk Serial No. in Delphi 1.0?

How do I get the serial number of a disk?