How to initialize and format a Virtual Disk using Delphi

Question

Based on and using the Jedi Demo VHD, I\'ve created a virtual disk, and can mount and dismount it. When mounted, it appears in the Diskmanager as disk 1 "unknown".